范围粘贴特殊结果错误 1004

Question

我有一个相当大的代码，但唯一失败的是粘贴我之前复制的内容。

Dim WB_start As Workbook
    Set WB_start = ThisWorkbook
Dim WB_active As Workbook
Dim WSS As Worksheet
Set WSS = WB_active.Worksheets("Samenvatting")
    WSS.Unprotect ("SECRETSTUFF")

    MsgBox (WB_start.Name & " - " & WB_start.Worksheets(1).Name)

    WB_start.Worksheets(1).Range(WB_start.Worksheets(1).Cells(8, 9), _
           WB_start.Worksheets(1).Cells(13, 12)).Copy

    MsgBox (WB_active.Name & " - " & WSS.Name)

    WSS.Range(WSS.Cells(8, 9)).PasteSpecial xlPasteFormulas

这里的最后一行给出了臭名昭著的 1004 错误。 "Method Range of Object Worksheet failed"。我知道这通常意味着某些东西不合格，但我不知道那可能是什么。我插入了消息框，它们显示了预期的工作簿和工作表名称。

Answer 1

更改线路：

WSS.Range(WSS.Cells(8, 9)).PasteSpecial xlPasteFormulas

至：

WSS.Cells(8, 9).PasteSpecial xlPasteFormulas

范围粘贴特殊结果错误 1004

Range paste special results in error 1004

excel

vba

copy-paste

range