Excel 仅选择最后一行的命名范围

我正在将原始数据拉入模板，但我不能保证团队之间使用相同的UI模板来拉入数据。我可以检查以确保我想要的数据在那里，但它们可能在团队之间的不同列中

因此，我的宏命名了这些区域（每个区域都是基于标题名的完整列），然后希望能够选择所需的命名区域进行复制和粘贴

当然，这些数据集大小不一，我感觉自己被一件超级简单的事情绊倒了

我要做的是选择命名范围，但只选择最后一行，然后将值粘贴到模板中。除了，我不知道如何只选择最后一行

下面是我目前遇到的一些麻烦代码：

Dim LastRow as Long
LastRow = ActiveSheet.Cells(Rows.Count, "U").End(xlUp).Row
Range("PullPlacementname" & LastRow).Copy

运行此命令会出现运行时错误“1004”，对象的方法“range”失败。这让我困惑，因为我以前成功地使用过这种方法

下面的一个小修补匠给了我同样的问题

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

我已尝试添加一个附加的Dim

Dim PullPlacementname As Range
Set PullPlacementname = ActiveWorkbook.SheetName("Pull").Range("PullPlacementname")

但是第二行给了我一个运行时错误'438'，对象不支持这个属性或方法

---

想法/建议？

您可以使用以下内容：

Dim c As Long
With Worksheets("Pull")
    c = .Range("PullPlacementname").Column ' assuming the range name only contains one column
    .Range(.Cells(1, c), .Cells(.Rows.Count, c).End(xlUp)).Copy
End With

---

您可以使用以下内容：

Dim c As Long
With Worksheets("Pull")
    c = .Range("PullPlacementname").Column ' assuming the range name only contains one column
    .Range(.Cells(1, c), .Cells(.Rows.Count, c).End(xlUp)).Copy
End With

---

您可能想在最后一句话中使用

工作表（“Pull”）

而不是

SheetName（“Pull”）

。@YowE3K，可能是。但即使是那个修复程序也给了我一个错误，你可能是想用

工作表（“Pull”）

而不是上次语句中的

SheetName（“Pull”）

。@YowE3K，可能是。但即使是那个修复程序也给了我一个错误。这非常有效，谢谢！我喜欢这将如何与我的所有范围的工作。这是完美的工作，谢谢！我喜欢这将如何与我的所有范围的工作。