[VBA][Excel]処理関連 Exit

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

Exit For / Exit Do / Exit Sub の事例です。

下記を実行すると

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 5

Next

Sheet1.Range("A1").Value = i


For i = 1 To 5
    If i = 2 Then
        '2 で終了
        Exit For
    End If
Next

Sheet1.Range("A2").Value = i


i = 1
Do While i < 6
    If i >= 3 Then
        '3 以上で終了
        Exit Do
    End If
    
    i = i + 1
Loop

Sheet1.Range("A3").Value = i



Sheet1.Range("A4").Value = 999

For i = 1 To 5
    If i = 2 Then
        '2 で終了し、この手続き(Sub)を終えるので Range("A4").Valueの値はそのまま
        Exit Sub
    End If
Next

Sheet1.Range("A4").Value = i


End Sub

このようになります。

vba-excel-exit-for