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