如何为工作簿 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