为什么会导致错误？

Question

为什么会导致错误？

Set rQueryCopy = Sheets("Sheet1").Range(Cells(5, 1), Cells(5, 7))

我有rQueryCopy Dim As Range。我希望rQueryCopy与Sheet1上的单元格A5:G5相等。

提前致谢

Answer 1

Set rQueryCopy = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(5, 7))

单元格部分只查看活动表格，而不是“sheet1”，因此您需要指定... 使用多个工作簿也是如此....

Answer 2

你的问题是它们不是特定范围内的相邻细胞。您正在选择特定的单个细胞。

Union(Cells(5, 1), Cells(5, 7)).Copy
'Do whatever you want from here, like paste
Range("A1").PasteSpecial Paste:=xlPasteValues

当你粘贴它们时，它们将作为两个单独的单元格直接相邻出现。如果您想将它们粘贴到特定的非相邻位置，则需要单独执行此操作。

编辑：误解了你的问题，我现在就解决了。使用此：

Dim rQueryCopy As Range
Set rQueryCopy = Sheets("Sheet1").Range("A5:G5")