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错误。＆＃34;对象工作表的方法范围失败＆＃34; 。我知道这通常意味着某些东西没有合适的资格，但我不知道那可能是什么。我已经插入了消息框，它们显示了预期的工作簿和工作表名称。

Answer 1

更改行：

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

为：

WSS.Cells(8, 9).PasteSpecial xlPasteFormulas

范围粘贴特殊结果错误1004

1 个答案: