For ～ Nextを使った繰り返し処理

今回はFor ～ Nextステートメントを使った繰り返し処理についてメモしておきます。

基本の繰り返し処理

実行プログラム

Sub Sample2_6_1()

    Dim i As Integer

    For i = 1 To 5
        Cells(i, 1).Value = CStr(i)
    Next

End Sub

Sub Sample2_6_1()

Dim i As Integer

For i = 1 To 5

Cells(i, 1).Value = CStr(i)

End Sub

実行結果

実行プログラム

Sub Sample2_6_2()

    Dim i As Integer

    For i = 10 To 1 Step -2
        Cells(i, 1).Value = CStr(i)
    Next i

End Sub

Sub Sample2_6_2()

Dim i As Integer

For i = 10 To 1 Step -2

Cells(i, 1).Value = CStr(i)

Next i

End Sub

実行結果