繰り返し処理

数値で回数を指定

Sub ProcedureName()
    Dim i
    For i = 1 To 5
        Debug.Print i
    Next i
End Sub

実行結果

1
2
3
4
5

---

範囲からセルを取り出して繰り返す

Sub ProcedureName()
    For Each cell In Range("A1:A5")
        Debug.Print 'Hello'
    Next
End Sub

実行結果

Hello
Hello
Hello
Hello
Hello

---

途中でループを抜ける

Sub ProcedureName()
    For i = 1 To 5
        If i = 4 Then
            Exit For
        End If

        Debug.Print i
    Next
End Sub

実行結果

1
2
3