Как определить значения ячеек для одного столбца для каждого рабочего листа в книге 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