Vba 从最后一行复制所选内容

我有一个表格，标题在

A2:V2

范围内，数据在

A3:VXX

范围内，其中

XX

是最后一个行号

我正在尝试编写一个宏，它复制最后一行的值，但只复制列

a:p

。因此，复制

AXX:PXX

中的值。我在查找和复制整个最后一行时没有问题，但是我无法复制其中的有限范围

很抱歉之前没有包含我使用的代码

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

---

设置范围而不是整行：

Dim lastRow as long

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

---

设置范围而不是整行：

Dim lastRow as long

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

您可以使用：

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

您可以使用：

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

---

请出示你的密码。StackOverflow不是一个免费的代码编写服务。“复制整个最后一行我没有问题”-告诉我们你是如何做到这一点的，我们可以告诉你如何复制你想要的范围。对之前的是表示歉意。我现在已经包含了复制整行的代码。当我进入一个范围，但它不工作。我想我需要定义最后一行？请显示您的代码。StackOverflow不是一个免费的代码编写服务。“复制整个最后一行我没有问题”-告诉我们你是如何做到这一点的，我们可以告诉你如何复制你想要的范围。对之前的是表示歉意。我现在已经包含了复制整行的代码。当我进入一个范围，但它不工作。我想我需要定义最后一行？