Vba 为什么这会导致错误？

为什么这会导致错误

Set rQueryCopy=Sheets（“Sheet1”）。范围（单元格（5,1）、单元格（5,7））

我有

rQueryCopy Dim As Range

。我希望rQueryCopy与表1上的单元格

A5:G5

相等

---

提前感谢

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

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")

单元格部分只是在activesheet上查看，而不是在“sheet1”上，因此您需要指定。。。

---

使用多个工作簿也是如此……

1）您需要使用

Dim rQueryCopy As Range

而不是

rQueryCopy Dim As Range

。2） 当您说“导致错误”时，请检查您是否真的有名为“Sheet1”的工作表，如果您还告诉我们错误是什么，这将非常有帮助；你面前就有这些信息，所以绝对没有理由不把它包括在你的问题中。如果您需要此处的帮助，请具体说明，并提供详细信息，以便更轻松地为您提供帮助。此外，有时还必须在Cells（）函数中包含工作表引用。因此，设置rQueryCopy=Sheets（“Sheet1”）.范围（Sheets（“Sheet1”）.单元格（5,1），Sheets（“Sheet1”）.单元格（5,7））。创建另一个名为ws的变量可能更容易。将ws设置为工作表。设置ws=图纸（“图纸1”）。然后将所有工作表（“Sheet1”）替换为ws。错误消息为：运行时错误“1004”：应用程序定义或对象定义的错误。当我在Sheet1上尝试运行宏时，我不会收到错误，但如果在Sheet3上尝试，我会收到错误。我将尝试创建工作表变量

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