循环的VBA复制和粘贴宏

Question

VBA的新增功能，只是想创建一个宏，该宏将复制指定范围内的表并将其粘贴到下一个可用的空行中。发生的是，每次我运行它时，它都会粘贴到相同的范围内，即B12，并且不知道如何修改...

Sub CopyRange2()

Range("A1:I9").Select
Selection.Copy
Range("B12").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Answer 1

想知道为什么您指定了单元格B12吗？

如果您只想将数据粘贴到下一个可用的空行中，则下面的代码将起作用。

Sub CopyRange2()

Dim lastrow As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:I9").Select
Selection.Copy

Range("A" & lastrow + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub