將行復制到另一個下方檢查最後填充的列

我有一個圖紙列表。我希望列表的內容被轉移到我的工作表評估。但是我的評估表已經包含了之前的評估。我想要新的行低於舊的行。有人能幫助我如何實現這一目標嗎？將行復制到另一個下方檢查最後填充的列

我有我的下面的代碼，這是一個複製粘貼功能。

Sub lastweekctt() 
Worksheets("List").Range("A4:W1000").Copy _ 
Destination:=Worksheets("Evaluation").Range("A5") 
End Sub

我在兩張表中都有第4行的標題。

來源

2017-09-20 Mikz

你需要得到最後的空白行：

Sub lastweekctt() 

    Dim LastRow As Long 

    'get last row 
    LastRow = Worksheets("Evaluation").Cells(Rows.Count,1).End(xlUp).Row 
    Worksheets("List").Range("A4:W1000").Copy _ 
    Destination:=Worksheets("Evaluation").Range("A" & LastRow + 1) 
End Sub

希望這有助於。

來源

2017-09-20 12:34:06

這將是最好的也有資格的Rows.Count到一個特定的工作表。 – braX

是的，當然。謝謝@braX –

@adhywijaya我想將其更改爲第5行。但是它定義了範圍（A） – Mikz

您將需要找到最後一排第一

lLastRow = Worksheets("Evaluation").Cells(Worksheets("Evaluation").Rows.Count, 1).End(xlUp).Row

，然後你的目標範圍看起來就像這樣

.Range("A" & lLastRow + 1)

來源

2017-09-20 12:34:30 braX

將行復制到另一個下方檢查最後填充的列

回答

相關問題