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

Question

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

赞： 认为我有2张来自HSR的工作表（名称分别为“ Combined”，“ HSR”），我需要将所有数据复制到“ Combined Sheet”（不包括“ D”列值）

local[*]

我希望输出结果是，在工作表合并后，我不应该从高铁工作表获得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)

还有一些提示

如果lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row不返回任何内容，

1. lr2 = Sheets("Combined").Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row和.Find将给您错误。按照.Find and .FindNext

所示进行处理

2. 避免使用.Select。您可能需要查看How to avoid using Select in Excel VBA