如何为工作簿中的每个工作表将单元格值定义到同一列 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

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

How to define cell values to the same column for each worksheet in the workbook VBA

excel

vba

range

worksheet