[英]Excel 2007 VBA: How do I copy and paste from a dynamic range on one sheet to the first empty row of another sheet?
[英]Excel 2007 Copy range values and paste to another range (Same Sheet) first empty row
总计新手。 需要帮助来使这个简单的代码起作用。 每次运行宏时,都需要它来在目标行中找到下一个打开的行并粘贴。 显然,我第一次运行时,它可以工作,但是下次运行时,它将其粘贴到以前的粘贴之上。 我需要粘贴的行数会有所不同,因此每次运行代码时,都需要检查空间然后粘贴要复制的内容。
Sub Save()
Range("A19:I100").Copy Destination:=Range("N5:V1000")
End Sub
提前致谢
尝试使用下一个代码:
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.