そんな悩み、VBAを書いていると一度は感じますよね。
ループ回数を自分で管理するのは手間ですし、範囲が変わるたびにコードを直すのも大変です。

For Each~Nextを使えば、対象のセルやシートをまるごとループできます。
番号の管理が不要になり、コードもすっきり書けますよ。

この記事では、For Eachの基本構文から実務パターンまでまとめて解説します。

VBA For Each~Nextとは？基本の書き方をおさらい

For Each~Nextは、コレクション（まとまり）の中身を1つずつ取り出して処理するループ構文です。

「セル範囲のすべてのセル」「ブック内のすべてのシート」など、グループの要素をまとめて処理したいときに使います。

基本の構文は次のとおりです。

For Each 変数 In コレクション
    '--- 繰り返したい処理 ---
Next 変数

変数にはコレクションの要素が1つずつ代入されます。
すべての要素を処理し終わると、自動的にループを抜けます。

ポイントは、ループの回数を指定しなくてよいことです。
コレクションの要素数が変わっても、コードの修正は不要ですよ。

For~Nextとの違いはなに？

For~Nextは、回数を指定して繰り返すループ構文です。
一方、For Eachは対象のまとまりを順に処理する構文です。

ざっくりまとめると、こんなイメージになります。

• For~Next: 「1番目から10番目まで処理して」
• For Each: 「この中の全部を処理して」

回数が決まっている処理にはFor~Nextが向いています。
「全部に同じ処理をしたい」ならFor Eachが便利です。

使い分けの詳しい判断軸は、記事の後半で解説しますね。

For Eachでセル範囲を一括処理する

For Eachでもっともよく使うのが、セル範囲のループです。
指定した範囲のすべてのセルに、同じ処理を適用できます。

Rangeに対してFor Eachを使う基本構文

セル範囲をFor Eachで処理するときは、Rangeオブジェクトをコレクションに指定します。

Sub セル範囲をループ()
    Dim cell As Range '--- 処理対象のセル ---

    For Each cell In Range("A1:A10")
        cell.Value = cell.Value * 2 '--- 値を2倍にする ---
    Next cell
End Sub

cellには、A1、A2、A3……と順にセルが代入されます。
各セルの値を2倍にする、シンプルな処理ですね。

なお、セルの処理順序は公式には保証されていません。
通常は左上から右下へ処理されますが、順序に依存するコードは避けるのがベターです。

実務サンプル：指定範囲のセルに処理を一括適用

実務では、動的な範囲を対象にすることが多いです。
最終行の取得と組み合わせたサンプルを見てみましょう。

Sub 空欄セルを強調表示()
    Dim lastRow As Long '--- 最終行 ---
    Dim cell As Range   '--- 処理対象のセル ---

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For Each cell In Range("A1:C" & lastRow)
        If cell.Value = "" Then
            cell.Interior.Color = RGB(255, 200, 200) '--- 薄い赤で塗る ---
        End If
    Next cell
End Sub

A列の最終行までの範囲で、空欄セルを薄い赤色にハイライトします。
データの入力漏れチェックに、そのまま使えますよ。

ループの途中で処理を抜けたいときは、Exit Forを使います。
最初の空欄が見つかった時点で止めるなら、こう書きます。

If cell.Value = "" Then
    MsgBox cell.Address & " が空欄です"
    Exit For '--- 最初の空欄で停止 ---
End If

なお、ループ内でIf文を組み合わせるのは定番パターンです。
条件に合うセルだけを対象にしたいときに活用してくださいね。

For Eachで全シートに同じ処理をする

ブック内の全シートにまとめて処理をかけたいとき、For Eachが活躍します。
シート数が増減しても、コードの変更は不要です。

WorksheetsコレクションとFor Eachの組み合わせ

WorksheetsコレクションをFor Eachに渡すと、全シートを順に処理できます。

Sub 全シート名を表示()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        Debug.Print ws.Name '--- イミディエイトウィンドウに出力 ---
    Next ws
End Sub

変数wsはWorksheet型で宣言するのがポイントです。

ひとつ注意があります。
Worksheetsは非表示のシートも含みます。
xlSheetVeryHiddenで隠したシートも対象になるので、気をつけてください。
表示シートだけ処理したいときは、条件を追加しましょう。

実務サンプル：全シートのA1セルをクリアする

Sub 全シートA1クリア()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        If ws.Visible = xlSheetVisible Then '--- 表示シートのみ ---
            ws.Range("A1").ClearContents
        End If
    Next ws
End Sub

ws.Visible = xlSheetVisibleの条件で、表示中のシートだけを対象にしています。

特定のシートを除外したい場合もあるでしょう。
そのときはIf ws.Name <> "集計" Thenのように、シート名で判定してください。

実務サンプル：全シートにヘッダーを一括設定する

月別シートを持つブックで、全シートに同じヘッダーを設定するコードです。

Sub 全シートにヘッダー設定()
    Dim ws As Worksheet '--- 処理対象のシート ---

    For Each ws In Worksheets
        If ws.Visible = xlSheetVisible Then '--- 表示シートのみ ---
            ws.Range("A1").Value = "日付"
            ws.Range("B1").Value = "担当者"
            ws.Range("C1").Value = "金額"
            ws.Range("A1:C1").Font.Bold = True '--- ヘッダーを太字 ---
        End If
    Next ws

    MsgBox "全シートにヘッダーを設定しました"
End Sub

毎月シートを追加するようなブックで、ヘッダーの設定漏れを防げます。
手動で1枚ずつ入力するよりも、ずっと確実ですよ。

For Eachで配列をループする

For Eachは配列のループにも使えます。
ただし、注意点があるので確認しておきましょう。

配列に対してFor Eachを使う書き方

Sub 配列をループ()
    Dim arr As Variant  '--- 配列 ---
    Dim item As Variant '--- 配列の要素（Variant型が必須） ---

    arr = Array("東京", "大阪", "名古屋")

    For Each item In arr
        Debug.Print item
    Next item
End Sub

ここで大事なポイントがあります。
配列をFor Eachで回すとき、変数は必ずVariant型にしてください。
Dim item As Stringのように宣言すると、型の不一致エラーになります。

コレクション（Worksheetsなど）では専用の型が使えます。
しかし、配列はVariant限定です。
つまずきやすいので覚えておきましょう。

配列でのFor Each vs For~Nextの比較

配列のループでは、For~Nextのほうが向いているケースもあります。

配列の要素を読み取るだけならFor Eachが手軽です。
要素の書き換えや番号が必要な処理には、For~Nextを選びましょう。

VBA For Eachの使い分け判断チャート

ここまで3つのパターンを見てきました。
「結局どのループを使えばいいの？」と迷ったときの判断軸をまとめます。

3つのループ構文の使い分け

迷ったら「対象のまとまりがあるか」で判断するのがコツです。
Range・WorksheetsなどのコレクションがあるならFor Eachです。
回数やインデックスが重要ならFor~Nextを選びましょう。

For Eachでよくあるエラーと対処法

For Eachを使っていて発生しやすいエラーをまとめました。

特に「型が一致しません」は初心者がつまずきやすいエラーです。
配列のループでは、必ずVariant型を使ってください。

ループ内でシートを削除したいときの対処

For Eachのループ中にコレクションを変更すると、エラーになります。
シートを削除したい場合は、逆順ループで対処しましょう。

Sub 空シートを削除()
    Dim i As Long '--- ループカウンター ---

    Application.DisplayAlerts = False '--- 確認ダイアログを非表示 ---

    For i = Worksheets.Count To 1 Step -1
        If WorksheetFunction.CountA(Worksheets(i).UsedRange) = 0 Then
            Worksheets(i).Delete
        End If
    Next i

    Application.DisplayAlerts = True '--- 確認ダイアログを復帰 ---
End Sub

逆順（Step -1）にするのがポイントです。
順方向だと削除後にインデックスがずれて、正しく処理できません。
このパターンはFor~Nextの逆順ループが適しています。

VBEの起動方法（はじめてマクロを使う方へ）

VBAのコードは、VBE（Visual Basic Editor）で入力して実行します。
はじめてマクロを使う方は、以下の手順で準備してくださいね。

VBEの開き方

キーボードで Alt + F11 を押すと、VBEが起動します。

リボンから開く場合は「開発」タブを使います。
開発タブが表示されていない場合は、次の手順で追加してください。

1. 「ファイル」→「オプション」→「リボンのユーザー設定」を開く
2. 右側の一覧で「開発」にチェックを入れる
3. 「OK」をクリックする

標準モジュールの挿入と実行

VBEを開いたら、コードを書く場所を用意します。

1. メニューの「挿入」→「標準モジュール」をクリック
2. 表示されたコードウィンドウにコードを貼り付ける
3. F5キーを押すか、メニューの「実行」→「Sub/ユーザーフォームの実行」で実行

VBAの基本から体系的に学びたい方は、VBA学習ロードマップも参考にしてみてください。

まとめ

この記事では、VBAのFor Each~Nextについて解説しました。

• 基本構文: For Each 変数 In コレクション ... Next
• セル範囲: Rangeを指定して全セルを一括処理
• 全シート: Worksheetsで全シートをまとめて処理
• 配列: Variant型の変数で要素を読み取り
• 使い分け: コレクションがあればFor Each、回数指定ならFor~Next

For Eachを使いこなすと、繰り返し処理がぐっとシンプルになります。
まずはセル範囲のループから、ぜひ試してみてくださいね。

なお、作成したマクロは.xlsm（マクロ有効ブック）形式で保存してください。
.xlsxで保存するとマクロが消えてしまうので注意です。

VBAで繰り返し処理を書いていると、そんな場面に出くわしますよね。回数が決まっていればFor文で十分です。でも「空白セルが見つかるまで」「値が一定を超えるまで」のように、終了タイミングが条件次第のケースがあります。こうした場合、For文だとうまく書けません。

そんなときに使うのが VBA Do Loop です。この記事では4パターンの構文から実務コードまで解説していきますね。

VBA Do Loopとは？

Do Loopは、指定した条件にもとづいて処理を繰り返すVBAのステートメントです。

たとえば「セルが空白になるまで1行ずつ読み込む」といった処理に使います。「合計金額が予算を超えるまで加算を続ける」といったケースにも対応できます。

For文が「回数指定の繰り返し」なのに対して、Do Loopは「条件指定の繰り返し」と覚えるとわかりやすいですよ。

NOTE

VBE（Visual Basic Editor）は Alt + F11 で起動します。「挿入」→「標準モジュール」でコードを書く場所を作ったら、Do Loopを試してみましょう。起動方法や画面構成がわからない方は、VBE画面の見方の記事を先にチェックしてみてください。

NOTE

Do Loopは条件を満たすまで動き続けます。条件設定を間違えると無限ループになるので、初めのうちは必ずカウンター変数を入れて安全策を取りましょう。強制終了の方法は「マクロを強制終了する方法」で解説しています。

Do Loopの基本構文4パターン

Do Loopには While と Until の2種類のキーワードがあります。さらに条件判定をループの先頭に置くか末尾に置くかで、計4パターンの構文になります。

パターン1: Do While … Loop（前判定・条件を満たす間）

条件を満たしている間、処理を繰り返します。条件判定はループに入る前に行われます。

Do While 条件式
    '--- 繰り返す処理 ---
Loop

条件が最初からFalseの場合、処理は1回も実行されません。

パターン2: Do … Loop While（後判定・条件を満たす間）

処理を1回実行したあとに条件を判定します。条件を満たしている間、繰り返します。

Do
    '--- 繰り返す処理 ---
Loop While 条件式

条件にかかわらず、必ず1回は処理が実行されるのがポイントです。

パターン3: Do Until … Loop（前判定・条件を満たすまで）

条件を満たすまで処理を繰り返します。条件判定はループに入る前に行われます。

Do Until 条件式
    '--- 繰り返す処理 ---
Loop

Whileとは条件の意味が逆になります。「〜になるまで回す」と読むとわかりやすいですよ。

パターン4: Do … Loop Until（後判定・条件を満たすまで）

処理を1回実行したあとに条件を判定します。条件を満たすまで繰り返します。

Do
    '--- 繰り返す処理 ---
Loop Until 条件式

こちらも必ず1回は処理が実行されるパターンです。

4パターンの早見表

TIP

迷ったときは Do While … Loop（前判定・While） を使うのがおすすめです。最もよく使われるパターンで、条件を先にチェックするため安全です。

VBA Do Loopの基本コード

4パターンそれぞれの動きを確認してみましょう。どれも「1から3まで数えてメッセージを表示する」コードです。

Do While … Loop の例

Sub DoWhileLoop_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do While i <= 3
        MsgBox i & "回目の処理です"
        i = i + 1
    Loop

    MsgBox "ループが終了しました"
End Sub

i が4になった時点で i <= 3 がFalseになり、ループを抜けます。

Do Until ... Loop の例

Sub DoUntilLoop_Basic()
    Dim i As Long 'カウンター
    i = 1

    Do Until i > 3
        MsgBox i & "回目の処理です"
        i = i + 1
    Loop

    MsgBox "ループが終了しました"
End Sub

i が4になった時点で i > 3 がTrueになり、ループを抜けます。While版とは条件式が逆になっている点に注目です。

前判定と後判定の違いを確認する

前判定と後判定の違いがよくわかるコードを見てみましょう。

Sub ComparePrePost()
    Dim i As Long 'カウンター

    '--- 前判定: 条件を満たさないので1回も実行されない ---
    i = 10
    Debug.Print "前判定の開始"
    Do While i <= 3
        Debug.Print "前判定: " & i
        i = i + 1
    Loop

    '--- 後判定: 条件を満たさなくても1回は実行される ---
    i = 10
    Debug.Print "後判定の開始"
    Do
        Debug.Print "後判定: " & i
        i = i + 1
    Loop While i <= 3
End Sub

イミディエイトウィンドウ（Ctrl + G で表示）に結果が出力されます。前判定では何も表示されません。後判定では「後判定: 10」が1回だけ表示されます。

VBA Do Loopの実践コード

ここからは、実務で使えるパターンを紹介していきます。セル操作ではRange・Cellsプロパティを使います。Cellsの行・列を数値で指定できるので、Do Loopとの相性がいいですよ。

パターン1: 空白セルまでデータを読み込む

A列にデータが入力されていて、空白セルが見つかったら読み込みを止めるコードです。

Sub ReadUntilBlank()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim total As Double '合計値

    Set ws = ActiveSheet
    i = 2 'ヘッダー行をスキップ
    total = 0

    Do While ws.Cells(i, 1).Value <> ""
        total = total + ws.Cells(i, 2).Value
        i = i + 1
    Loop

    MsgBox "合計: " & total & vbCrLf & _
           "データ件数: " & (i - 2) & "件"
End Sub

A列が空白になった時点でループを抜けます。データの最終行を事前に調べる必要がなく、行数が変動するデータに便利です。

パターン2: 目標金額に達するまで加算する

売上データを上から順に加算して、目標金額に達した行を特定するコードです。

Sub FindTargetRow()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim cumulative As Double '累積金額
    Dim target As Double '目標金額

    Set ws = ActiveSheet
    i = 2
    cumulative = 0
    target = 1000000

    Do Until cumulative >= target
        If ws.Cells(i, 1).Value = "" Then
            MsgBox "目標に届きませんでした"
            Exit Sub
        End If
        cumulative = cumulative + ws.Cells(i, 2).Value
        i = i + 1
    Loop

    MsgBox "目標達成！" & vbCrLf & _
           (i - 2) & "行目で累計" & Format(cumulative, "#,##0") & "円"
End Sub

Exit Sub で「データが尽きたのにまだ目標未達」のケースも安全に処理しています。ループ内のIf文で条件分岐し、空白セルに到達したら処理を中断する仕組みです。

パターン3: ユーザー入力を繰り返し受け付ける

InputBoxで入力を受け付けて、「終了」と入力されるまで繰り返すコードです。後判定（Loop Until）の出番です。

Sub InputLoop()
    Dim userInput As String '入力値
    Dim items As String '入力リスト

    items = ""

    Do
        userInput = InputBox("品名を入力してください" & vbCrLf & _
                             "（「終了」で登録完了）", "品名登録")

        If userInput = "" Then Exit Do
        If userInput <> "終了" Then
            items = items & userInput & vbCrLf
        End If
    Loop Until userInput = "終了"

    If items <> "" Then
        MsgBox "登録された品名:" & vbCrLf & items
    End If
End Sub

InputBoxは「最低1回は表示したい」ので、後判定がぴったりです。キャンセル（空文字）のときは Exit Do で抜けています。

パターン4: 条件に合うセルを検索する

指定した値がA列のどこにあるか、上から順に探すコードです。Rangeプロパティの End(xlUp) で最終行を取得し、Do Loopで1行ずつ照合します。

Sub SearchValue()
    Dim ws As Worksheet '対象シート
    Dim i As Long '行カウンター
    Dim searchWord As String '検索値
    Dim lastRow As Long '最終行
    Dim found As Boolean '見つかったか

    Set ws = ActiveSheet
    searchWord = InputBox("検索する値を入力してください")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    i = 2
    found = False

    Do While i <= lastRow And Not found
        If ws.Cells(i, 1).Value = searchWord Then
            found = True
        Else
            i = i + 1
        End If
    Loop

    If found Then
        MsgBox searchWord & " は " & i & "行目にあります"
        ws.Cells(i, 1).Select
    Else
        MsgBox searchWord & " は見つかりませんでした"
    End If
End Sub

And Not found で「見つかったら即終了」にしています。Findメソッドでも検索できますが、Do Loopなら途中に追加処理を挟めるのがメリットです。

無限ループの防止策

Do Loopで最も注意すべきなのが無限ループです。条件が永遠にTrueのままだと、Excelが応答しなくなります。以下の3つの対策を覚えておきましょう。

対策1: カウンター変数で上限を設ける

ループ回数を変数で管理し、上限に達したら強制終了する方法です。

Dim cnt As Long 'ループ回数カウンター
cnt = 0

Do While 条件式
    '--- 処理 ---
    cnt = cnt + 1
    If cnt > 10000 Then
        MsgBox "ループ回数が上限を超えました"
        Exit Do
    End If
Loop

対策2: DoEventsで中断可能にする

Do While 条件式
    DoEvents '--- OSにイベント処理を返す ---
    '--- 処理 ---
Loop

DoEvents を入れると、ループ中でもEscキーで中断しやすくなります。ただし処理速度はやや落ちます。

対策3: Exit Do で途中脱出する

Do While 条件式
    If 異常条件 Then Exit Do
    '--- 通常処理 ---
Loop

Exit Do はDo Loopを即座に抜けるステートメントです。想定外のデータに遭遇したときの安全弁になります。

NOTE

万が一無限ループに入ってしまったら、強制停止してください。Windowsは Ctrl + Break（または Esc キー連打）、Macは Command + ピリオド です。詳しくは「マクロを強制終了する方法」をご覧ください。

よくあるエラーと対処法

NOTE

Do Loopを含むマクロは、ファイルを マクロ有効ブック（.xlsm） で保存してください。通常の .xlsx では保存時にマクロが消えてしまいます。

繰り返し処理の使い分け

VBAには3種類の繰り返しステートメントがあります。場面に合わせて使い分けましょう。

使い分けの目安:

• 回数が決まっている → For文
• 条件で終了タイミングが変わる → Do Loop
• コレクション（セル範囲・全シート・配列）を順に処理 → For Each

TIP

「空白セルまで下に読む」のような処理はDo Loopの定番パターンです。ただし最終行を取得する方法で先に End(xlUp).Row で行数を確定させ、Forループで回す方法もあります。好みや可読性で選んで大丈夫ですよ。

まとめ

Do Loopは「条件にもとづいて繰り返す」ためのステートメントです。

• While = 条件を満たしている間繰り返す
• Until = 条件を満たすまで繰り返す
• 前判定（Do While / Do Until）= 条件次第で1回も実行されない
• 後判定（Loop While / Loop Until）= 必ず1回は実行される
• 迷ったら Do While ... Loop（前判定・While）を選ぶ
• カウンター変数 と Exit Do で無限ループを防ぐ

条件付きの繰り返し処理が書けると、VBAの活用幅がぐっと広がります。まずは基本コードをVBEに貼り付けて、動きを確認してみてくださいね。

Do Loopを使いこなせたら、次はVBA学習ロードマップで全体の学習ステップを確認してみましょう。

関連記事

• For文の使い方｜繰り返し処理の基本
• For Eachの使い方｜セル・シート・配列を一括処理
• If文の使い方｜条件分岐を基本から実務まで解説
• Select Case文で条件分岐を見やすく書く方法
• マクロを強制終了する方法｜止まらない時の対処法
• VBE画面の見方｜ウィンドウの名前と役割を整理
• Rangeの使い方｜セルの指定・範囲操作を基本から解説
• Like演算子の使い方｜ワイルドカードで文字列を曖昧比較
• VBA変数の使い方
• Option Explicitで変数宣言を強制する方法
• VBA学習ロードマップ

VBAを使い始めた方なら、一度はこんな場面に出くわしたのではないでしょうか。セルに連番を振ったり、データを1行ずつチェックしたり。手作業だと時間がかかるうえにミスも出やすいですよね。

VBAのFor~Next文を使えば、こうした繰り返し処理をたった数行のコードで自動化できます。この記事では基本構文から実務で使えるパターンまで、まとめて解説していきます。

VBA For~Next文とは？繰り返し処理の基本を理解しよう

For~Next文は、VBAで「決まった回数だけ処理を繰り返す」ための構文です。

たとえば「1行目から100行目まで同じ処理をしたい」とき、100回コードを書く必要はありません。For~Next文を使えば、カウンター変数が自動で増えながら指定した回数だけ処理を実行してくれます。

VBAにはいくつかのループ構文がありますが、For~Next文は繰り返す回数がはっきり決まっているときに一番使いやすい構文です。

VBA For~Next文の基本構文と書き方

基本の書き方

For~Next文の構文はこちらです。

Sub sample()
    Dim i As Long

    For i = 1 To 10
        '--- ここに繰り返したい処理を書く ---
    Next i
End Sub

動作の流れをかんたんに整理すると、次のようになります。

1. カウンター変数 i に初期値（ここでは1）が入る
2. 処理を実行する
3. Next i で i が1つ増える
4. i が最終値（ここでは10）を超えていなければ、2に戻る
5. i が最終値を超えたらループ終了

カウンター変数の名前は i が定番です。ただし row や count など、分かりやすい名前でもOKですよ。ポイントは数値型（Long型）で宣言することです。

Integer 型は扱える範囲が -32,768 から 32,767 までです。一方 Long 型なら約21億まで対応できます。大きなデータでも安心なので、迷ったら Long を選んでおきましょう。変数の型について詳しく知りたい方は「VBAの変数の使い方」の記事もあわせてどうぞ。

Stepで増減値を変更する

通常、カウンター変数は1ずつ増えていきます。Step を使うと、増減の幅を自由に変えられます。

' 2行おきに処理する（1, 3, 5, 7, 9行目）
Sub sample_step()
    Dim i As Long

    For i = 1 To 9 Step 2
        Cells(i, 1).Interior.Color = RGB(255, 255, 200)
    Next i
End Sub

カウントを減らすことも可能です。その場合は初期値を最終値より大きくするのを忘れないでくださいね。

' 10から1に向かってカウントダウン
Sub sample_countdown()
    Dim i As Long

    For i = 10 To 1 Step -1
        Cells(i, 1).Value = i & "番目"
    Next i
End Sub

注意点として、Step に 0 を指定すると無限ループになります。エラーにはならず延々と処理が続いてしまいます。うっかり書かないように気をつけましょう。

Exit Forで途中終了する

ループの途中で「もうこれ以上繰り返す必要がない」という場面もありますよね。そんなときは Exit For を使います。

' A列から「合計」というセルを探して、見つけたらループ終了
Sub sample_exit_for()
    Dim i As Long

    For i = 1 To 1000
        If Cells(i, 1).Value = "合計" Then
            MsgBox i & "行目に「合計」が見つかりました"
            Exit For
        End If
    Next i
End Sub

大量のデータを処理するとき、目的のデータが見つかった時点でループを抜ければ処理時間を大幅に短縮できます。実務ではかなり重宝するテクニックですよ。

VBA For文の実務パターン5選

ここからは、実際の業務で使えるパターンを紹介していきます。

パターン1: セルに連番を振る

一番シンプルな使い方です。指定した範囲に連番を入力します。

Sub 連番を振る()
    Dim i As Long

    For i = 1 To 20
        Cells(i, 1).Value = i
    Next i
End Sub

このコードを実行すると A1 から A20 セルに 1 から 20 の連番が入ります。RangeやCellsの使い方を理解しておくと、セルの指定がもっと柔軟にできるようになりますよ。

パターン2: 条件に合うデータだけ処理する

For文とIf文を組み合わせると、条件に合ったデータだけを処理できます。実務で特に使う場面が多いパターンです。

' B列が「未処理」の行だけC列に「要対応」と入力
Sub 条件付き処理()
    Dim i As Long

    For i = 2 To 100
        If Cells(i, 2).Value = "未処理" Then
            Cells(i, 3).Value = "要対応"
        End If
    Next i
End Sub

条件に合う行だけ色を付けたり、別シートにコピーしたりといった応用もできます。

パターン3: 最終行まで自動でループする

実務では、データの行数が毎回変わることがほとんどです。ループの終了値を固定してしまうと、データが増えたときに処理漏れが起きてしまいます。

そこで、最終行を自動取得してループの終了値に使うのが定番パターンです。

Sub 最終行まで処理()
    Dim i As Long
    Dim lastRow As Long

    '--- A列の最終行を取得 ---
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        '--- 2行目からデータ最終行まで処理 ---
        If Cells(i, 1).Value = "" Then
            Cells(i, 1).Interior.Color = RGB(255, 200, 200)
        End If
    Next i
End Sub

Cells(Rows.Count, 1).End(xlUp).Row は「A列の一番下から上に向かって、最初にデータがあるセルの行番号を返す」という意味です。これで毎回データ件数を調べなくて済みますよ。

パターン4: 逆順ループで行を安全に削除する

行の削除処理をFor文で行うとき、上から順に回すと行番号がずれて正しく処理できません。Step -1 で下から上に向かってループするのがポイントです。

Sub 空白行を削除()
    Dim i As Long
    Dim lastRow As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = lastRow To 2 Step -1
        If Cells(i, 1).Value = "" Then
            Rows(i).Delete
        End If
    Next i
End Sub

上から削除すると、たとえば3行目を消した瞬間に4行目が3行目に繰り上がります。すると次の i = 4 では元の5行目を処理してしまい、旧4行目がスキップされます。逆順ループならこの問題が起きません。

パターン5: 複数シートを一括処理する

ブック内のすべてのシートに同じ処理をかけたい場面もあります。シート数をカウンター変数の終了値に使うことで、For文でも対応できます。

Sub 全シートにヘッダー追加()
    Dim i As Long

    For i = 1 To Worksheets.Count
        Worksheets(i).Range("A1").Value = "No."
        Worksheets(i).Range("B1").Value = "名前"
        Worksheets(i).Range("C1").Value = "金額"
    Next i
End Sub

ただし、シートやセル範囲などの「コレクション」を順番に処理するなら、For Each~Next文のほうがコードがシンプルになります。用途に応じて使い分けてみてください。

For文のネスト（入れ子）で表を一括処理する

For文の中にさらにFor文を入れることをネスト（入れ子）と呼びます。少し複雑に見えますが、やっていることはシンプルです。

外側のFor文が行を、内側のFor文が列を担当するイメージで考えてみてください。

' 5行 x 3列の表すべてに値を入力する
Sub ネストの例()
    Dim i As Long
    Dim j As Long

    For i = 1 To 5       '行のループ
        For j = 1 To 3   '列のループ
            Cells(i, j).Value = i & "行" & j & "列"
        Next j
    Next i
End Sub

実行すると、A1 から C5 のセルに「1行1列」「1行2列」……といったテキストが入ります。

ネストを使った実務的な例も見てみましょう。表の中で空白セルを見つけて「未入力」と表示するマクロです。

' 表内の空白セルに「未入力」と表示
Sub 空白チェック()
    Dim i As Long
    Dim j As Long

    For i = 2 To 50       '2行目から50行目まで
        For j = 1 To 5    'A列からE列まで
            If Cells(i, j).Value = "" Then
                Cells(i, j).Value = "未入力"
                Cells(i, j).Interior.Color = RGB(255, 200, 200)
            End If
        Next j
    Next i
End Sub

ネストするときのポイントは、外側と内側で別の変数名を使うことです。外側が i なら内側は j、さらにネストするなら k にするのが一般的ですよ。同じ変数名を使うとエラーになるので注意してくださいね。

VBA For文でよくあるエラーと対処法

For文を使っていると遭遇しがちなエラーをまとめました。

特に「ループが一度も実行されない」パターンは気づきにくいバグです。Step -1 を使うときに初期値と最終値を逆にし忘れるケースが多いので、気をつけましょう。

For~Next・Do Loop・For Eachの使い分け

VBAには For~Next 以外にもループ構文があります。それぞれの特徴を整理しておくと、場面に応じて最適な構文を選べるようになりますよ。

どう選べばいい？3ステップの判断フロー

1. 繰り返す回数が決まっている？ → Yes なら For~Next
2. コレクション（シート・セル範囲・配列）を順番に処理したい？ → Yes なら For Each
3. 「条件を満たすまで」繰り返したい？ → Yes なら Do Loop

たとえば「A列の最終行まで処理したいけど、データ件数が毎回変わる」という場合でも、最終行を取得すれば回数が確定するため For~Next で対応できます。一方、「空白セルが見つかるまで」のように終了条件が行数ではない場合は Do Loop が向いています。

まとめ

この記事では、VBAのFor~Next文について基本から実務パターンまで解説しました。

ポイントをおさらいしておきましょう。

• For~Next文は回数が決まった繰り返し処理に最適
• Step で増減幅を変更、Exit For で途中終了できる
• 最終行の自動取得と組み合わせるのが実務の定番パターン
• 逆順ループ（Step -1）は行削除時に必須のテクニック
• ネストを使えば行と列の二重ループで表全体を処理できる
• Do Loop・For Eachとの使い分けで、より適切なループ構文を選べる

For文はVBAの中でも使用頻度がとても高い構文です。まずはこの記事のサンプルコードをコピーして動かしてみてください。自分で動かしてみると、理解がぐっと深まりますよ。