Excel VBA 繰り返し構文を使い大量のデータを効率的に処理する方法

ExcelVBA  同じ処理を何度も繰り返すことがよくあります。繰り返し処理（ループ構文）を使うことで、大量のデータを効率的に処理できます。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 繰り返し構文｜シーン

Excel VBA 繰り返し構文｜サンプルコード

Option Explicit

Sub ForNextサンプル()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 1).Value = "行 " & i ' A列に行番号を入力
    Next i
    MsgBox "処理完了！", vbInformation
End Sub

標準モジュール（セル範囲のデータを1つずつ処理）

Option Explicit

Sub ForEachサンプル()
    Dim rng As Range
    For Each rng In Range("A1:A10") ' A1:A10を順番に処理
        rng.Value = rng.Row ' 行番号を入力
    Next rng
    MsgBox "処理完了！", vbInformation
End Sub

標準モジュール（条件が満たされている間ループ）

Option Explicit

Sub DoWhileサンプル()
    Dim i As Integer
    i = 1
    Do While Cells(i, 1).Value <> "" ' A列が空白でない間繰り返す
        Cells(i, 2).Value = "OK"
        i = i + 1 ' 次の行へ
    Loop
    MsgBox "処理完了！", vbInformation
End Sub

標準モジュール（条件が満たされるまでループ）

Option Explicit

Sub DoUntilサンプル()
    Dim i As Integer
    i = 1
    Do Until Cells(i, 1).Value = "" ' A列が空白になるまで繰り返す
        Cells(i, 2).Value = "OK"
        i = i + 1
    Loop
    MsgBox "処理完了！", vbInformation
End Sub

標準モジュール（ループの終了条件を適切に設定しないと、無限ループ になりExcelがフリーズすることがあります）

Option Explicit

Sub 無限ループ()
    Dim i As Integer
    i = 1
    Do While i > 0 ' iが常に正のため、無限ループ！
        Cells(i, 1).Value = "ループ"
    Loop
End Sub

Excel VBA 繰り返し構文｜まとめ