【VBA】「Range’メソッドは失敗しました:’_Worksheet’オブジェクト」の対処法

今回はVBAを実行した時に「Range’メソッドは失敗しました:’_Worksheet’オブジェクト」とエラーメッセージ表示された時の対処法を紹介します。

うめ

エラーの理由がわかってしまえば、次からはすぐに解消できるようになります！

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

エラーの状況
エラーの原因
対処法

エラーの状況

Sheet2を選択した状態で下記のコードを実行すると「Range’メソッドは失敗しました:’_Worksheet’オブジェクト」とエラーが発生します。

Sub Sample1()

    Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
    Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
    
    ws1.Range(Cells(1, 1), Cells(3, 3)) = "1"

End Sub

Sub Sample1()

Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")

Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")

ws1.Range(Cells(1, 1), Cells(3, 3)) = "1"

End Sub

ちなみにSheet1を選択した状態でコードを実行するとエラーなく処理が終わってしまうため、VBAの経験が浅い場合は混乱しますよね…。

エラーの原因

6行目の記述ですが、Cellsを使用する場合は、どのシートを参照するのか指定する必要があります。

ws1.Range(Cells(1, 1), Cells(3, 3)) = "1"

1	ws1.Range(Cells(1, 1), Cells(3, 3)) = "1"

標準モジュールの場合はアクティブシートを参照するため、Sheet2を選択した状態でコードを実行すると、実際はこのようになっています☟

ws1.Range(Sheet2.Cells(1, 1), Sheet2.Cells(3, 3)) = "1"

1	ws1.Range(Sheet2.Cells(1, 1), Sheet2.Cells(3, 3)) = "1"

うめ

Sheet1のSheet2セルを参照しようとするため、エラーが発生します。

対処法

このようにCellsの参照シートを指定すればSheet2を選択した状態でもエラーが発生しません。

Sub Sample2()

    Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
    Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
    
    With ws1
        .Range(.Cells(1, 1), .Cells(3, 3)) = "1"
    End With

End Sub