![](/img/trans.png)
[英]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.