主页 / computer / 问题 / 1686416
Accepted
Smaran
Asked: 2021-11-09 18:15:30 +0800 CST

需要用于复制和粘贴范围的 Excel VBA 循环代码

  • 772

我想创建一个循环，将范围 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
microsoft-excel vba

1 个回答

  1. Best Answer

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

    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
    • 0

相关问题