2014-01-25 138 views
1

此處共有新手。需要幫助使這個簡單的代碼工作。每次運行宏時,我都需要它來查找目標行中的下一個打開的行並進行粘貼。很明顯,我第一次運行它,但它會在下一次將它粘貼到上一次粘貼之前。我需要粘貼的行數會有所不同,因此需要檢查空間,然後粘貼每次運行代碼時要複製的內容。Excel 2007複製範圍值並粘貼到另一個範圍(相同工作表)第一個空行

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

在此先感謝

回答

0

嘗試使用下面的代碼:

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 
相關問題