VBAでさまざまな列をループする方法

Question

マクロをドラッグして列を下ろそうとしています。私はちょうど列をドラッグするマクロを記録しました。私が持っているすべての列をドラッグするループを置く方法はありますか？

私はこれに何かを考え出しましたが、うまくいきません。このコードは、最初の列をドラッグした直後に機能しなくなります。

Sub Macro3() 
    ' 
    ' Macro3 Macro 
    ' 
    For i = 1 To 100 

     Selection.AutoFill Destination:=ActiveCell.Range("A1:A4") 
     ActiveCell.Range("A1:A4").Select 
    Next i 
End Sub 

私はそれが私が持っているすべての100の列で動作させることができますか？私はこれを学びたいと思っているので、私はどんな助けにも感謝します。

Answer 1

スイッチを.FillDownに変更して一気に実行します。

dim rws as long 
rws = 4 
with worksheets("sheet1") 
    with .range(.cells(1, "A"), .cells(1, .columns.count).end(xltoleft)) 
     .resize(rws ,.columns.count).filldown 
    end with 
end with 

合計の行数にrwsを設定するか、または行の合計数を決定する他の方法を見つけてください。