復制最后一行的選擇

Question

我有一張表，標題在A2:V2范圍內，數據在A3:VXX范圍內，其中XX是最后一行。

我正在嘗試編寫一個宏，該宏復制最后一行的值，但僅適用於A:P列。 所以復制AXX:PXX的值。 我沒有發現並復制整個最后一行的問題，但是我不能在其中復制有限的范圍。

抱歉，不包括我使用的代碼。

With Activesheet 
    .cells(.rows.count,1).end(xlup).entirerow.copy 
End With

Answer 1

而不是整個行設置范圍：

Dim lastRow as long

With Activesheet 
    lastRow = .cells(.rows.count,1).end(xlup).Row
    .Range(.Cells(lastrow,"A"),.Cells(lastrow,"P")).copy 
End With

Answer 2

您可以使用：

With ActiveSheet
    .Cells(.Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy
End With

或者，由於ActiveSheet是默認工作表，因此只需：

Cells(Rows.Count, 1).End(xlUp).EntireRow.Columns("A:P").Copy