【VBA】エラー「End Ifに対応するIfがありません」の原因とインデントを使った一発解決法

Excel VBAでマクロを作成し、いざ実行ボタンを押した瞬間に「コンパイルエラー: End If に対応する If ブロックがありません。」というダイアログが表示されてしまい、処理が全く動かなくなってしまった経験はないでしょうか。

If文は条件分岐を行うための最も基本的で重要な構文ですが、このエラーはVBAを学び始めたばかりの初心者から、複雑なプログラムを組む中級者まで、誰もが一度は必ず直面する非常に有名なエラーです。

エラーメッセージを読むと「どこかにIfの書き忘れがあるのだろうか？」と考えてしまいますが、コードを何度見直しても「If」と「End If」の数は合っているように見える……というケースが多々あります。実は、このエラーの本当の原因は単なる「書き忘れ」だけではなく、「VBA独自の文法ルール（1行構文とブロック構文の違い）」の誤解や、「他の制御構文との構造のねじれ」にあることが大半です。

本記事では、この「End Ifに対応するIfがありません」エラーが発生するすべての原因を体系的に解説し、どこが間違っているかを一瞬で見抜くための「インデント（字下げ）を使ったデバッグ手法」、そしてエラーを未然に防ぐための美しく読みやすいコードの書き方までを、4000文字以上の圧倒的なボリュームで徹底的に解説します。

1. エラー「End Ifに対応するIfがありません」とは？
2. 原因1：Thenの後ろに処理を書いて「1行構文」になっている（最も多い原因）
3. 原因2：純粋に「End If」の数が多い（コピペ・消し忘れ）
4. 原因3：For文やWith文など「他の制御ブロック」と交差している
5. 【一発解決】「インデント（字下げ）」を使ってズレを視覚化する
6. VBEで複数行のインデントを一括調整するショートカット技
7. エラーを防ぐ！If文のネスト（入れ子）を減らす3つの設計テクニック
8. よくある質問（FAQ）
9. まとめと解決チェックリスト

1. エラー「End Ifに対応するIfがありません」とは？

VBAのプログラムは、上から下へと1行ずつ順番にコンパイル（解析）されていきます。VBAのコンパイラが End If というキーワードを見つけた時、システムは「これとペアになるはずの、現在開かれている If の始まり」をさかのぼって探します。

しかし、対応する If が見つからなかった場合、あるいは見つかったとしても文法上の整合性が取れていない場合に、システムは「この End If は一体どの If を終わらせるためのものなのか分からない」とパニックになり、「コンパイルエラー: End If に対応する If ブロックがありません。」というエラーメッセージを表示して処理を停止させます。

このエラーは「コンパイルエラー（実行前エラー）」であるため、マクロが途中で異常終了してデータが壊れるといった心配はありません。文法規則に従って正しくペアを組み直せば、必ず解決できるエラーです。

2. 原因1：Thenの後ろに処理を書いて「1行構文」になっている（最も多い原因）

このエラーの原因の8割以上を占めるのが、VBAにおける「単一行構文」と「ブロック構文」の混同です。特に初心者の方が非常に陥りやすい罠です。

VBAのIf文には、実は2種類の書き方が存在します。

単一行構文（1行で完結する書き方）

Then の直後（同じ行）に実行したい処理を書いた場合、VBAはこれを「この1行だけでIf文の処理はすべて完了した」と解釈します。この場合、End If を書いてはいけません。

ブロック構文（複数行にまたがる書き方）

Then の直後で改行し、次の行から実行したい処理を書いた場合、VBAはこれを「複数行のブロック処理が始まった」と解釈します。この場合、最後に必ず End If が必要になります。

エラーが発生するのは、「単一行構文」として書いている（Thenの後ろに処理を書いている）にも関わらず、一番下に不要な End If を置いてしまっているケースです。

【NG例：エラーになる書き方】

Sub TestError1()
    Dim score As Integer
    score = 80

    ' Then の後ろに直接処理を書いてしまっているため、ここでIf文が完結している
    If score >= 80 Then MsgBox "合格です"

    ' すでに完結しているのにEnd Ifが登場するため「対応するIfがない」と怒られる
    End If
End Sub

【OK例1：ブロック構文として直す（一般的な書き方）】

Sub TestOK1()
    Dim score As Integer
    score = 80

    ' Then の後ろで必ず「改行」する
    If score >= 80 Then
        MsgBox "合格です"
    End If
End Sub

【OK例2：単一行構文として直す（短い処理向け）】

Sub TestOK2()
    Dim score As Integer
    score = 80

    ' End If 自体を削除し、1行で完結させる
    If score >= 80 Then MsgBox "合格です"
End Sub

コードを見直し、Then の右側に何かしらの処理や文字が書かれている場合は、その右側の文字をすべて次の行に改行して移すか、末尾の End If を削除することでエラーは解消します。

3. 原因2：純粋に「End If」の数が多い（コピペ・消し忘れ）

長いプログラムを書いている時や、過去に作ったマクロから処理をコピー＆ペーストして切り貼りしている際に発生しやすい原因です。If の数よりも End If の数が物理的に多くなってしまっている状態です。

【NG例：End If が過剰】

Sub TestError2()
    Dim status As String
    status = "完了"

    If status = "完了" Then
        MsgBox "処理を終了します"
    End If

    ' ペアになるIfが存在しない余分なEnd If
    End If
End Sub

この場合は、余分な End If を見つけて削除するだけで解決します。しかし、何百行もあるコードの中で「どれが余分なEnd Ifなのか」を目視で見つけるのは至難の業です。そのための解決法が、後述する「インデントを使ったデバッグ」です。

4. 原因3：For文やWith文など「他の制御ブロック」と交差している

VBAには If...End If 以外にも、繰り返し処理を行う For...Next や Do...Loop、オブジェクトをまとめる With...End With などの「ブロックを作る制御構文」が存在します。

これらのブロックは、必ず「マトリョーシカ（入れ子・ネスト）」のように、完全に内包される形で記述しなければなりません。ブロックの開始と終了が互いに交差（クロス）してしまうと、コンパイラが構造を解読できなくなり、「対応するIfがありません」や「Forに対応するNextがありません」といったエラーを出力します。

【NG例：IfブロックとForブロックが交差している】

Sub TestError3()
    Dim i As Integer

    ' Ifブロックが開始
    If Range("A1").Value = "実行" Then

        ' Forブロックが開始（Ifの中に完全に収まらなければならない）
        For i = 1 To 10
            Cells(i, 2).Value = "OK"

    ' ★エラー原因：Forブロックが終わる前に、外側のIfを終わらせようとしている
    End If

        ' Forブロックの終了
        Next i
End Sub

【OK例：ブロックを完全に内包（入れ子）にする】

Sub TestOK3()
    Dim i As Integer

    If Range("A1").Value = "実行" Then

        For i = 1 To 10
            Cells(i, 2).Value = "OK"
        Next i ' ← 必ずIfが終わる前にForを完結させる

    End If
End Sub

制御構文が複数絡み合う場合は、必ず「最後に始まったブロックが、最初に終わらなければならない（LIFO：後入れ先出しの原則）」というルールを守る必要があります。

5. 【一発解決】「インデント（字下げ）」を使ってズレを視覚化する

前述の「余分なEnd Ifの発見」や「ブロックの交差」をコードを一目見ただけで瞬時に発見するための、プロのプログラマーが全員実践している必須のテクニックが「インデント（字下げ）」です。

インデントとは、ブロック構造の深さに応じて、行の先頭に空白（タブ）を挿入し、コードを右にずらして記述することです。インデントを正確に行うことで、「どこからどこまでがペアなのか」が視覚的に明確になります。

インデントを行っていない悪いコード（エラーが見つけにくい）

Sub BadIndent()
If Range("A1").Value > 100 Then
If Range("B1").Value = "VIP" Then
MsgBox "特別割引を適用します"
End If
Else
MsgBox "通常価格です"
End If
End If ' ← どこに対応しているのか全く分からない
End Sub

上記のように左端が揃ってしまっていると、どの If とどの End If がペアなのか、熟練者でも見抜くのに時間がかかります。

インデントを行った美しいコード（エラーが一瞬で分かる）

Sub GoodIndent()
    If Range("A1").Value > 100 Then
        If Range("B1").Value = "VIP" Then
            MsgBox "特別割引を適用します"
        End If
    Else
        MsgBox "通常価格です"
    End If

    End If ' ← 一瞬で「ペアになるIfがない余分なゴミ」だと分かる
End Sub

ブロックが深くなるたびに「Tabキー」を1回押して右にずらし、End If や Next などでブロックが終わる時に左に戻す、というルールを徹底するだけで、エラー76や構造のねじれは劇的に減少し、バグの発見も容易になります。

6. VBEで複数行のインデントを一括調整するショートカット技

すでに左詰めになってしまっている数百行のコードに、1行ずつTabキーを押してインデントを入れていくのは非常に手間です。VBE（Visual Basic Editor）には、複数行を一気にインデント・インデント解除する便利な機能が備わっています。

複数行を一括でインデントする（右にずらす）

インデントを入れたい複数行のコードをマウスでドラッグして選択します。
キーボードの Tabキー を1回押します。
選択したすべての行が、一括で右に一段階（タブ1つ分）ずれます。

複数行のインデントを一括で解除する（左に戻す）

左に戻したい複数行のコードをマウスでドラッグして選択します。
キーボードの Shiftキーを押しながら Tabキー を押します。
選択したすべての行が、一括で左に一段階戻ります。

【VBEのツールバーを活用する】
VBEのメニューバーから「表示」＞「ツールバー」＞「編集」にチェックを入れると、エディタ上部に編集用のツールバーが表示されます。ここにある「インデント」および「インデント解除」のアイコン（横線と右・左矢印のマーク）をクリックすることでも、同様の一括操作が可能です。コードを書いた後は、必ずこの機能を使って段落を整理する癖をつけてください。

7. エラーを防ぐ！If文のネスト（入れ子）を減らす3つの設計テクニック

If文の中にIf文を書き、さらにその中にIf文を書き……とネスト（入れ子）が3階層、4階層と深くなっていくと、インデントを整えていてもコードは極めて読みづらくなり、「End Ifの対応関係」が崩れるリスクが跳ね上がります。

エラーを防ぐためには、そもそも「ネストを深くしないコード設計」を心がけることが重要です。プロが実務で使う3つのテクニックを紹介します。

① 論理演算子（And / Or）で条件をまとめる

複数の条件を順番に判定する際、If文を重ねるのではなく、And や Or を使って1行にまとめることができます。

【変更前：ネストが深いコード】

If score >= 80 Then
    If attendance >= 90 Then
        MsgBox "A評価です"
    End If
End If

【変更後：Andでまとめたコード】

If score >= 80 And attendance >= 90 Then
    MsgBox "A評価です"
End If

② Select Case ステートメントを活用する

1つの変数の値によって3つ以上の条件分岐を行う場合、If...ElseIf...Else...End If を長く連ねるよりも、Select Case を使った方が構造がスッキリとし、End Ifの数も減らすことができます。

Select Case userRank
    Case "S"
        MsgBox "プラチナ特典"
    Case "A"
        MsgBox "ゴールド特典"
    Case "B"
        MsgBox "シルバー特典"
    Case Else
        MsgBox "通常会員"
End Select

③ ガード節（早期リターン）を使ってネストを回避する

「エラーの場合は処理を抜ける」「条件を満たしていない場合は先に終わらせる」という処理をコードの先頭に書くことで、メインの処理を深いIf文の中に閉じ込める必要がなくなります。これをガード節（Early Return）と呼びます。

【変更前：メイン処理が深い場所にある】

Sub ProcessData()
    If Range("A1").Value <> "" Then
        If IsNumeric(Range("A1").Value) Then
            ' --- メインの長い処理がここに入る ---
            MsgBox "処理を実行します"
            ' ------------------------------------
        End If
    End If
End Sub

【変更後：ガード節を使ってネストをなくす】

Sub ProcessData()
    ' 条件を満たさなければ、さっさと処理を終了（Exit Sub）させる
    If Range("A1").Value = "" Then Exit Sub
    If Not IsNumeric(Range("A1").Value) Then Exit Sub

    ' ここまで到達したということは、すべての条件をクリアしている
    ' メインの処理をインデントなし（一番左）で広々と書ける
    MsgBox "処理を実行します"
End Sub

このガード節を使いこなせるようになると、コードの可読性が飛躍的に向上し、If文の閉じ忘れといったエラーから完全に解放されます。

8. よくある質問（FAQ）

Q1. エラー箇所がハイライトされないので、どこが間違っているのか分かりません。

コンパイルエラーは実行前にコード全体を解析するため、エラーダイアログの「OK」を押すと、原因となった（あるいは矛盾が発生した） End If の行などが青くハイライトされます。もしハイライトされない場合は、VBEメニューの「デバッグ」＞「VBAProject のコンパイル」を手動でクリックしてください。プロジェクト内で最初に発見された構造的エラーの箇所が確実にハイライトされます。

Q2. エラーメッセージが「If ブロックに対応する End If がありません」と微妙に違います。

本記事の「End If に対応する If がありません」とは逆で、Ifでブロックを開始したのに、閉じるための End If を書き忘れている（足りない）場合に発生するエラーです。これもインデントを整えることで、どの階層のIfが閉じられていないのかが一目でわかるようになります。

Q3. ElseIf をたくさん繋げるとエラーになりやすくなりますか？

ElseIf 自体は1つの If...End If ブロックの中にいくつでも追加できるため、構文規則を正しく守っていればエラーの直接の原因にはなりません。ただし、ElseIf の行で Then の後に処理を書いてしまう（1行構文を混ぜてしまう）と、その時点で構造が破壊されてエラーになります。条件が多い場合は、前述の Select Case への書き換えを推奨します。

9. まとめと解決チェックリスト

「コンパイルエラー: End If に対応する If ブロックがありません。」は、VBAが「コードのブロック構造（ペアの対応関係）に矛盾が生じている」と警告してくれているエラーです。

エラーが発生した際は、闇雲にコードを書き直すのではなく、以下のチェックリストに従って構造を確認してください。

If ～ Then の行の「Thenの右側」に、処理を直接書いてしまっていないか？（単一行構文の誤用）
コード全体を選択し、TabキーとShift+Tabキーを使ってインデント（字下げ）を美しく整えたか？
インデントを整えた結果、左端のラインが合っていない「はぐれた End If」が存在していないか？
For...Next や With...End With などの他の制御ブロックと、開始・終了の順番が交差していないか？
If文のネスト（入れ子）が深くなりすぎていないか？（And/Orやガード節への書き換えを検討）

美しいインデントは、プログラムが正しく動くための必須条件と言っても過言ではありません。この機会に「ブロックが始まったら必ず字下げをする」というプログラミングの基本ルールを徹底し、バグに悩まされない快適なVBA開発環境を手に入れてください。

目次