Excel VBA 実行時エラー9「インデックスが有効範囲にありません」原因と対処コード

Excel VBAで発生する。実行時エラー9「インデックスが有効範囲にありません」は、配列・ワークシート・コレクションなどに対して、存在しない番号やキーを指定した場合に発生します。

特に、インデックス番号でアクセスする古いVBAコードでは、実行するまでエラーに気づきにくい点が特徴です。

※本記事は、2026年時点のExcel VBA環境でも通用する対処方法をもとに解説しています。

━━━━━━━━━━━━━━━━━━━━━━━━
エラーを原因ごとに
確認できるチェックリストを無料公開しています。
↓↓↓↓↓
▶ すぐに確認する
━━━━━━━━━━━━━━━━━━━━━━━━

実行時エラー9「インデックスが有効範囲にありません」が発生する原因

エラーが発生する主な原因

以下のような原因があります。

エラーを解消する基本の対処方法

エラーを防ぐExcel VBAサンプルコード

Option Explicit

Sub CheckArrayIndex()
    Dim arr(1 To 3) As Integer
    Dim index As Integer
    index = 4

    If LBound(arr) <= index And UBound(arr) >= index Then
        arr(index) = 10
    Else
        MsgBox "インデックスが有効範囲にありません"
    End If
End Sub

Option Explicit

Sub CheckSheetIndex()
    Dim sheetIndex As Integer
    sheetIndex = 5

    If Sheets.Count >= sheetIndex Then
        Sheets(sheetIndex).Select
    Else
        MsgBox "指定されたシートは存在しません"
    End If
End Sub

コレクションで発生するエラーを防ぐ

Option Explicit

Sub CheckDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    dict.Add "Key1", "Value1"
    If dict.Exists("Key2") Then
        MsgBox dict("Key2")
    Else
        MsgBox "Key2は存在しません"
    End If
End Sub

よくある古い書き方

Dim ws As Worksheet

On Error Resume Next
Set ws = Sheets("Sheet5")
On Error GoTo 0

If ws Is Nothing Then
    MsgBox "指定したシートは存在しません"
Else
    ws.Select
End If

番号ではなく「名前」で参照することで、シート構成変更によるエラーを防げます。

実行時エラー9は原因がはっきりしているため、発生パターンごとに対処方法を覚えておくことが重要です。

━━━━━━━━━━━━━━━━━━━━━━━━
次に同じエラーで迷わないように。
↓↓↓↓↓
Excel VBAエラーを順番に切り分ける
チェックリストを無料配布しています。
▶ 次から迷わないために保存する
━━━━━━━━━━━━━━━━━━━━━━━━