Excel VBA Forループ内でExitを使いループを終了する

以下のようなシーンで利用されます。

・特定の条件が満たされた場合にループを即座に終了したい場合に使用します。例えば、リスト内の特定の要素を探す場合や、特定の条件が満たされるまでループを継続したい場合などに役立ちます。

Option Explicit

Sub ExitForExample()
    Dim i As Integer
    Dim targetValue As Integer
    Dim found As Boolean
    
    targetValue = 5
    found = False
    
    For i = 1 To 10
        If i = targetValue Then
            found = True
            Exit For ' 目標の値が見つかったらループを終了
        End If
    Next i
    
    If found Then
        MsgBox "目標の値が見つかりました。"
    Else
        MsgBox "目標の値が見つかりませんでした。"
    End If
End Sub