如何遍历VBA中的各个列

我试图拿出一个macros来拖动列。 我刚刚录制了一个拖动列的macros。 有没有办法可以把一个循环，拖动我所有的列？

我想出了这个东西，但它不起作用。 这个代码在拖拽第一列后停止工作。

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设置为总行数，或找出确定总行数的其他方法。