Question

我遇到了我的VBA代码问题，“运行时错误'1004'无法获取Range类的Select属性”。我不知道为什么会发生这种情况，我迫切需要帮助。据我所知，我正在按照：http://msdn.microsoft.com/en-us/library/office/ff837760.aspx做正确的事。虽然我可能会忽视一些事情，因为在过去的几个小时里，我一直在对代码做一些小小的调整。

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

当我将鼠标悬停在目的地上时：显示为目的地=空。如果你们有任何见解，请告诉我。

谢谢，

Answer 1

删除＆＃34; CurrentRegion.Select＆＃34;声明，这应该工作：

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

（。复制）目的地：=空

1 个答案: