0

範囲クラスの pastespecial メソッドが失敗したことを示す実行時エラー '1004' が発生し続けます。私がやろうとしているのは、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
4

1 に答える 1

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
于 2013-02-22T06:10:09.650 に答える