excel - 如何克服错误 1004 对象 _global 范围失败

Question

在这里，我试图将数据从一张表复制到另一张表，我需要从复制表中排除一个特定列

喜欢 :
认为我有 2 张来自 HSR 的工作表(名称为“组合”、“HSR”)我需要将所有数据复制到组合工作表中，不包括“D”列值

Dim ws As Worksheet
Dim ColumnLetter As Variant
    Set ws = Sheets("HSR")
    Worksheets("HSR").Select
    lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
    lr2 = Sheets("Combined").Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
    ColumnLetter = Split(ws.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Cells.Address(1, 0), "$")(0)
    Range("A2:C" & lr).Copy Sheets("Combined").Range("A" & lr2 + 1)
    Range("E2:ColumnLetter" & lr).Copy Sheets("Combined").Range("D" & lr2 + 1)
End Sub

我希望输出为，在工作表组合中，我不应该从 HSR 工作表中获取 D 列中的值

Answer 1

ColumnLetter是一个变量。您将其用作 String .

改变

Range("E2:ColumnLetter" & lr).Copy Sheets("Combined").Range("D" & lr2 + 1)

至

Range("E2:" & ColumnLetter & lr).Copy Sheets("Combined").Range("D" & lr2 + 1)

还有一些tips

lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row和 lr2 = Sheets("Combined").Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row如果 .Find 会给你错误不返回任何东西。如.Find and .FindNext所示处理

避免使用 .Select .您可能想查看 How to avoid using Select in Excel VBA