Excel VBA_Exitステートメントについて

この記事ではVBAのExitステートメントについてまとめます。制御構造の処理の途中で抜け出すにはExitステートメントを使います。構文は全部で5つの種類があります。

ステートメント	抜け出す処理
Exit For	For~Next
Exit Do	Do~Loop/While
Exit Sub	Subプロシージャ
Exit Function	Functionプロシージャ
Exit Property	Propertyプロシージャ

下記のExit ForではB列に空白セルがあった場合、そのセルを黄色にしてFor~Nextを抜け出ます。

Dim i As Long
For i = 2 To 10
    If Range("B" & i).Value = "" Then
        Range("B" & i).Interior.ColorIndex = 6
        Exit For
    End If
Next

Exit Doでは全ての種類のDo~Loopから抜け出ることができます。下記ではiの値が3になったらループを抜け出します。

Dim i As Long
Do While i < 5
    i = i + 1
    Range("A" & i) = i
    If i = 3 Then
        Exit Do
    End If
Loop