运行时错误 '1004：范围类的粘贴特殊方法失败

Question

当我尝试将工作簿的一个工作表内的合并单元格("A1:Q20")粘贴到单元格"F20"中的另一个工作簿的另一个工作表时，出现此错误。如下面的代码所示:

With ActiveWorkbook.Sheets("Data")
Range("A1:Q20").Copy
dataworkbook.Close
End With
With ActiveWorkbook.Sheets("Destination Data")
Range("F20").PasteSpecial xlPasteAll
End With

然而，这只是粘贴值不是我的意图，我已经尝试了其他PasteSpecial类型，如xlPasteAllUsingSourceTheme等，但这些类型会返回错误'运行时错误'1004:范围类的PasteSpecial方法失败'。

在这种情况下是什么导致了这个错误?

我如何将我想要的合并单元格粘贴到另一个工作簿的另一个工作表完全相同?

Answer 1

您的With块目前实际上没有做任何事情。您的代码可以简化为:

ActiveWorkbook.Sheets("Data").Range("A1:Q20").Copy Destination:=Workbooks("other workbook name.xlsx").Sheets("Destination Data").Range("F20")
dataworkbook.Close