如何为工作簿VBA中的每个工作表的单个列定义单元格值

Question

我正在尝试为列定义单元格值，并为当前工作簿中的每个工作表重复此操作。这是我测试一个简单示例的代码。它仅适用于当前活动工作表，而不适用于其他工作表。代码中的问题是什么？

Sub test()

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            Range("F2").Value = "1"
            Range("F3").Value = "2"
            Range("F2:F3").Select
            Selection.AutoFill Destination:=Range("F2:F21"), Type:=xlFillDefault
        End With
    Next ws

End Sub

提前致谢！

Answer 1

你需要一些'。'与With

Sub test()

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            .Range("F2").Value = "1"
            .Range("F3").Value = "2"
            .Range("F2:F3").AutoFill Destination:=.Range("F2:F21"), Type:=xlFillDefault
        End With
    Next ws

End Sub