首页 文章

仅选择命名范围到最后一行

提问于
浏览
0

我将原始数据拉入模板,但我无法保证在团队之间他们将使用相同的UI模板来提取数据 . 我可以检查以确保我想要的数据存在,但它们可能位于团队之间的不同列中 .

因此,我的宏命名范围(每个是基于 Headers 名称的完整列),然后希望选择所需的命名范围进行复制和粘贴 .

当然,这些数据集是各种各样的大小,我觉得我正在绊倒一个超级简单的事情 .

我想要做的是选择我的命名范围,但只选择最后一行,然后将值粘贴到我的模板中 . 除此之外,我无法弄清楚如何只选择最后一行 .

这是我目前的一些麻烦的代码:

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

运行这个给我一个运行时错误'1004',对象的方法'范围'失败 . 这让我感到困惑,因为我在成功之前已经使用过这种方法 .

下面的一点点修补,给了我同样的问题

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

我试过添加一个额外的Dim

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

但第二行给出了运行时错误'438',对象不支持此属性或方法 .

思考/建议吗?

1 回答

  • 2

    你可以使用类似的东西:

    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
    

相关问题