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

从最后一行复制选择

2 个答案: