☰

需要 Excel VBA 循环代码来复制和粘贴范围

tag-icon • tag-icon microsoft-excel vba macros copy-paste
需要 Excel VBA 循环代码来复制和粘贴范围

我想循环复制范围 A6 到 B 2365 并将其粘贴到前一个范围下方 18 次，即，我想将其粘贴到前一个范围的正下方，因此如果第一个范围以行号 2365 结束，我希望将复制的范围粘贴在行号 2366 上。

我做了一个宏录制并得出了下面的代码，但这只出现了 1 次，我想要一个可以重复这个任务 18 次的代码。

Range("A6:B2365").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15

答案1

使用循环粘贴复制的范围。您的代码将是：

Public Sub Test()

    Range("A6:B2365").Select
    Selection.Copy

    For x = 1 To 18
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveSheet.Paste
        ActiveWindow.SmallScroll Down:=15
    Next x

End Sub

相关内容