「Excel VBA」 Exit Do文でループ文から抜けるサンプル

2021年3月16日

書式
if 条件式　Then
Exit Do
End If
使用例

Sub funcA()

 Dim nn As Integer
 nn = 21
 
 Do While nn < 29
   If (nn = 25) Then
      'ループから抜ける
      Exit Do
    End If
    'イミディエイトDebug 値
    Debug.Print nn
    nn = nn + 2
 Loop
 
End Sub

実行結果
21
23