excel - 在 VBA excel 2010 上，我不断收到运行时错误“1004”，其中范围类的 PasteSpecial 方法失败

Question

我不断收到运行时错误“1004”，这表示我的范围类的 pastespecial 方法失败。我要做的就是剪下 2 个范围并将它们粘贴到它旁边的一个单元格中，这样我就可以创建一个开放的空范围。由于某种原因，范围类的 pastespecial 方法失败了，我不知道为什么。下面是代码：

---

Sub ProductivityMacro()

 Dim rDelete As Range

 Dim rCut As Range

 Dim rPaste As Object

 Set rDelete = Range("A:A,C:D,F:J,M:BD")

    rDelete.Delete (xlShiftToLeft)

 Set rCut = Range("C:D")

    rCut.Cut

 Set rPaste = Range("E1")

    rPaste.PasteSpecial xlPasteValues
End Sub

---

Answer 1

Sub ProductivityMacro()

    Dim rDelete As Range

    Dim rCut As Range

    Dim rPaste As Object

    Set rDelete = Range("A:A,C:D,F:J,M:BD")

    rDelete.Delete (xlShiftToLeft)

    Set rCut = Range("C:D")

    rCut.Cut Range("E1")

End Sub