Vba （.复制）目标：=空

我获取的VBA代码有问题，运行时错误“1004”无法获取Range类的Select属性。我不知道为什么会发生这种情况，我迫切需要帮助。据我所知，我正在按照以下原则做好每件事：。虽然在过去的几个小时里，我一次又一次地对代码进行微调，可能会忽略一些东西

Sheets(1).Range("A6").CurrentRegion.Select.Copy _
Destination:=ThisWorkbook.Sheets("Supplier").Range("A6")

当我将鼠标悬停在Destination上时：它显示为Destination=Empty。 如果你们有什么见解，请告诉我

---

谢谢，

删除当前区域。选择语句，这样应该可以：

Sheets(1).Range("A6").Copy _
Destination:=ThisWorkbook.Sheets("Supplier").Range("A6")

使用PasteSpecial：

Sheets("Data").Range("A6").CurrentRegion.Copy
ThisWorkbook.Sheets("Supplier").Range("A6").PasteSpecial Paste:=xlPasteValues

---

您从哪个工作簿复制？另一个名为Supplier Tab.xls的工作簿，它是activeworkbook。如果我将代码更改为读取ActiveWorkbook.Sheets1.RangeA6.CurrentRegion.Select.Copy u目标：=ThisWorkbook.SheetsApplication.RangeA6，则我会得到一个运行时错误424所需对象。嘿，Socii，感谢您的快速回复。实际上，我需要.CurrentRegion，因为我想选择表中的所有数据，但是删除.select虽然工作得很好。谢谢我还有一个后续问题。Destination:=函数是否为您提供了粘贴为值的选项？我正在粘贴到一个表中，我需要它保持为一个表，粘贴在标题上会删除我的表。没关系，如果我粘贴在标题上，即使有值，我最终也会删除表格式。此问题有任何可能的解决方案吗？ActiveWorkbook.Sheets1.RangeSupplier\u Tab.xls\u Raw.Copy\u Destination:=ThisWorkbook.SheetsSupplier.RangeSupplier\u Raw Done！！！现在有人知道如何将Destination:=作为值吗？我刚刚更新了代码，以包含一个使用PasteValues的示例。