Excel VBAでの「エラー9：インデックスが有効範囲にありません」の原因と対処法

2025.02.272026.01.27

皆さん、Excel VBAを使っていて「実行時エラー ‘9’インデックスが有効範囲にありません」というメッセージに悩まされたことはありませんか？今回は、このエラーの原因と解決方法を、初心者の方にもわかりやすくお伝えします。

「エラー9インデックスが有効範囲にありません」とは？
よくある原因とその対処法
よくある質問や疑問
1. Q1. エラーが発生したときに、どのコード行で問題が起きたか特定する方法はありますか？
2. Q2. エラーを未然に防ぐためのコーディングのコツはありますか？
まとめ

「エラー9インデックスが有効範囲にありません」とは？

Excelのイメージ

まず、このエラーメッセージが何を意味するのかを説明します。簡単に言うと、存在しないものを参照しようとしたときに発生するエラーです。例えば、存在しないシートやブック、配列の範囲外の要素を指定した場合などが該当します。

よくある原因とその対処法

では、具体的な原因とその解決策を見ていきましょう。

1. 存在しないシート名を指定している

原因シート名のスペルミスや、シートが存在しない場合に発生します。

対処法シート名を指定する前に、そのシートが存在するか確認しましょう。以下のコードで確認できます。

vba

Sub シート存在確認()

    Dim ws As Worksheet

    Dim シート名 As String

    シート名 = "Sheet1" '確認したいシート名
    On Error Resume Next

    Set ws = ThisWorkbook.Sheets(シート名)

    On Error GoTo 0

If ws Is Nothing Then MsgBox "シート '" & シート名 & "' が見つかりません。", vbExclamation Else MsgBox "シート '" & シート名 & "' が存在します。", vbInformation End If End Sub

このコードを実行すると、指定したシートが存在するかどうかを確認できます。

2. 開いていないブックを参照している

原因参照しようとしているブックが開かれていない場合に発生します。

対処法ブックを参照する前に、そのブックが開かれているか確認し、開かれていない場合は開く処理を追加しましょう。

vba

Sub ブック存在確認()

    Dim wb As Workbook

    Dim ブック名 As String

    ブック名 = "データ.xlsx" '確認したいブック名
    On Error Resume Next

    Set wb = Workbooks(ブック名)

    On Error GoTo 0

If wb Is Nothing Then MsgBox "ブック '" & ブック名 & "' が開かれていません。", vbExclamation 'ブックを開く処理 On Error Resume Next Set wb = Workbooks.Open(ThisWorkbook.Path & "" & ブック名) On Error GoTo 0 If wb Is Nothing Then MsgBox "ブック '" & ブック名 & "' を開くことができませんでした。", vbCritical Else MsgBox "ブック '" & ブック名 & "' を開きました。", vbInformation End If Else MsgBox "ブック '" & ブック名 & "' は既に開かれています。", vbInformation End If End Sub

このコードでは、指定したブックが開かれていない場合に自動的に開く処理を行います。

3. 配列の範囲外を参照している

原因配列の要素数を超えたインデックスを指定した場合に発生します。

対処法配列を扱う際には、`LBound`（最小インデックス）や`UBound`（最大インデックス）を使用して、インデックスが有効な範囲内か確認しましょう。

vba

Sub 配列チェック()

    Dim arr(1 To 3) As String

    Dim i As Integer
    arr(1) = "A"

    arr(2) = "B"

    arr(3) = "C"

For i = LBound(arr) To UBound(arr) Debug.Print arr(i) Next i End Sub

このコードでは、配列の範囲内の要素を順番に表示します。

よくある質問や疑問

Q1. エラーが発生したときに、どのコード行で問題が起きたか特定する方法はありますか？

はい、VBAのデバッグ機能を使用することで、エラーが発生した行を特定できます。エラーが発生すると、該当するコード行がハイライトされるので、その行を確認して原因を特定しましょう。

Q2. エラーを未然に防ぐためのコーディングのコツはありますか？

エラーを防ぐためには、以下のポイントに注意すると良いでしょう。

ここがポイント！

シート名やブック名は変数として定義し、一箇所で管理する。
配列やコレクションを扱う際には、範囲チェックを行う。
エラーハンドリングを適切に実装し、予期しないエラーに備える。

まとめ

「エラー9インデックスが有効範囲にありません」は、VBAを学習する中で誰もが一度は直面するエラーです。しかし、原因を理解し適切に対処することで、確実に解決できます。今回ご紹介したポイントを参考に、エラーのない快適なVBAライフを送りましょう。

他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。