Question

这里的新手总数。需要帮助使这个简单的代码工作。每次运行宏时，我都需要它来查找目标行中的下一个打开的行并粘贴。显然，我第一次运行时，它可以工作，但下次它粘贴在上一个粘贴之上。我需要粘贴的行数会有所不同，因此需要检查空间，然后在每次运行代码时粘贴它复制的内容。

Sub Save()
Range("A19:I100").Copy Destination:=Range("N5:V1000")
End Sub

提前致谢

Answer 1

尝试使用下一个代码：

Sub Save()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "N").End(xlUp).Row
    Range("A19:I100").Copy Destination:=Range("N" & lastrow + 1)
End Sub

Excel 2007复制范围值并粘贴到另一个范围（同一工作表）第一个空行

1 个答案: