Excel VBA 入門講座

条件により処理を繰り返したい場合はFor〜Nextステートメントを使用します。

For カウンタ変数 = 初期値 To 繰り返し回数
    繰り返し回数までの処理
Next

下記の例では、まず変数 i に 1 が代入され、次に i が10以上かどうかを評価し、セルに値を代入し、次に i の値を1つ加算し、 もう一度 i が10以上かどうかを評価し、セルに値を代入します。この処理を i が10以上になるまで繰り返します。

'説明：セルのA1〜A10に1〜10を入力する
Sub test()
    For i = 1 To 10
        Worksheets("Sheet1").Cells(i, 1).Value = i
    Next
End Sub

For〜Next文ではデフォルトでは、カウンタ変数に 1 が加算されますが、"STEP"を指定しカウンタ変数に加算される数値を指定することができます。

For カウンタ変数 = 初期値 To 繰り返し回数 Step 加算値
    繰り返し回数までの処理
Next

下記の例では、まず変数 i に 1 が代入され、次に i が10以上かどうかを評価し、セルに値を代入し、次に i の値を 2 つ加算し、 もう一度 i が10以上かどうかを評価し、セルに値を代入します。この処理を i が10以上になるまで繰り返します

'説明：セルのA1〜A10に1,3,5,7,9を入力する
Sub test()
    For i = 1 To 10 Step 2
        Worksheets("Sheet1").Cells(i, 1).Value = i
    Next
End Sub