Excel VBA 入門講座 Exit

Do～Loopステートメントを処理途中で抜け次のステートメントに制御を移します。以下の例では変数iの値が10になったときにDo～Loopを抜けます。 Sub ExitDo() Dim i As Integer i = 1 Worksheets("Sheet8").Activate Do Worksheets("Sheet8").Cells(i, 1) = i i = i + 1 If i = 10 Then Exit Do End If Loop End Sub