如何在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

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