そんな悩み、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で保存するとマクロが消えてしまうので注意です。

Excel VBA で繰り返し処理を書いていると、必ずこの壁にぶつかりますよね。For文は「1から10まで」のように回数を先に決める書き方。行数が日によって変わるデータだと、終了値に書く数字が決められません。

かといって毎回シートを開いて行数を数え、マクロの数字を書き換えるのは面倒ですよね。データが増えるたびに手直しが必要なマクロは、そのうち誰も使わなくなってしまうもの。

そこで出番になるのが VBA の Do Loop です。「A列が空になるまで」「累計が100万円を超えるまで」といった書き方ができます。終わりを回数ではなく条件で決められるのが、このステートメント最大の強み。

この記事では、次の4つをコピペで動くコードとセットで解説していきます。

• For文・For Each との使い分け（結論から先にお伝えします）
• 4パターン（While / Until × 前判定 / 後判定）の選び方
• 実務でそのまま使えるコード4本
• 無限ループの止め方・防ぎ方・抜け方

対応バージョン: Do Loop は Excel 2010 以降のデスクトップ版 Excel で共通に使えます。バージョンによる挙動差もありません。ただし Excel for the web（ブラウザ版）は VBA 非対応です。ブラウザ版ではマクロそのものを実行できない点にご注意ください。

Do LoopとFor文の使い分け（結論先出し）

Do Loopは「終わる回数が決まっていない繰り返し」に使う

Excel VBA の繰り返しステートメントは3種類あります。まずは結論から言ってしまいますね。

繰り返す回数が事前に分からないなら Do Loop。分かっているなら For系。 判断基準はこれだけ。

Do Loop は回数ではなく条件でループの継続と終了を決めます。1周ごとに条件式が True か False かをチェックし、その結果で「もう一周するか」を判断する仕組み。だから終了タイミングがセルの中身やユーザー操作に左右される処理でも書けるわけです。

たとえば次のような処理は、For文では素直に書けません。

• A列を上から読んで、空白セルに当たったら止めたい
• 売上を順に足して、累計が目標額を超えた行を知りたい
• InputBox で「終了」と入力されるまで受け付け続けたい
• フォルダ内のファイルを、なくなるまで1つずつ処理したい

どれも「何回繰り返すか」が実行してみるまで確定しないケース。回数が先に決まっていないので、For文の終了値に書く数字がそもそも存在しないんですね。

逆に「1行目から10行目まで」のように回数が確定しているなら、無理に Do Loop を使う必要はありません。カウンターが自動で進む For文のほうが安全ですし、コードも短く済みます。

For~Next / For Each / Do Loop の違いを比較表で整理

3つのステートメントの違いを1枚の表にまとめました。

表に出てくる「コレクション」とは、同じ種類のオブジェクトをまとめて扱う入れ物のこと。ワークシートの集まりやセル範囲がその代表例です。全シートを順番に処理したいなら、この形が一番短く書けますよ。

使い分けの目安は次の3行に集約できます。

• 回数が決まっている → For~Next文
• 全シート・全セルなど集合をまるごと → For Each~Next文
• 条件で終わりが決まる → Do Loop

注目してほしいのが表の最終行。無限ループの危険が「あり」なのは Do Loop だけなんです。For系はカウンターが自動で進むので、必ず終わりが来ます。

一方の Do Loop は、カウンターを進めるのも条件を変化させるのも書き手の責任。ここが後半のテーマにつながります。

NOTE

コードを書く場所は VBE（Visual Basic Editor）です。Excel の画面で Alt + F11 を押すと起動します。次に「挿入」→「標準モジュール」を選び、右側の白い領域にコードを貼り付けてください。実行は F5 キーです。

書いたマクロを残すには、ファイルを マクロ有効ブック（.xlsm） で保存する必要があります。画面の見方に自信がない方は、VBE画面の見方を先に確認しておくと安心ですよ。

Do Loopの4パターンを動かして理解する

Do Loop には While と Until という2つのキーワードがあります。さらに条件判定をループの先頭に置くか末尾に置くかで、合計4パターンの書き方になります。

先に用語を整理しておきましょう。判定をループの先頭に置く形を前判定と呼びます。ループに入る前に条件をチェックする形ですね。

判定を末尾に置く形が後判定。中身を1回実行してから条件をチェックします。

この違いが「最低何回実行されるか」を左右します。ここが4パターンの肝なので、実際に動かしながら確認していきましょう。

Do While … Loop（前判定・満たす間）

条件を満たしている間、処理を繰り返す形です。判定するのはループに入る前。

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

1から3まで数える最小コードで動きを見てみましょう。

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

    Do While i <= 3
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

実行結果はイミディエイトウィンドウに出力されます。VBE で Ctrl + G を押すと開く、結果確認用のウィンドウのこと。出力は次のとおりです。

1回目の処理
2回目の処理
3回目の処理
ループ終了（i は 4）

i が4になった瞬間に i <= 3 が False となり、ループを抜けます。ポイントは i = i + 1 の行。これを書き忘れると i が永遠に1のままになり、無限ループへ一直線です。

そして前判定の最大の特徴がこれ。条件が最初から False なら、中身は1回も実行されません。 上のコードで i = 10 から始めれば、出力は「ループ終了（i は 10）」の1行だけになります。

Do ... Loop While（後判定・満たす間）

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

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

先ほどと同じ「1から3まで」を後判定で書いてみます。

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

    Do
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop While i <= 3

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

出力は前判定版とまったく同じ4行になります。i = 1 からスタートする限り、両者に差は出ません。

違いが表に出るのは、条件を最初から満たしていないときです。i = 10 から始めると、後判定版は「10回目の処理」を1回だけ出力します。判定より先に中身を実行してしまうからですね。

必ず1回は実行したい処理には、この形がぴったりです。たとえば「入力ダイアログを最低1回は出す」といった場面ですね。

Do Until ... Loop（前判定・満たすまで）

条件を満たすまで処理を繰り返す形です。判定の位置は前判定と同じで、意味だけが反転します。

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

While との対応関係を押さえておきましょう。「i <= 3 である間」と「i > 3 になるまで」は、まったく同じ振る舞いになります。

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

    Do Until i > 3
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

出力は Do While 版と同一の4行です。条件式を否定形にひっくり返しただけ、というわけ。

While と Until のどちらを選ぶかは、条件式が自然に読めるほうで決めて構いません。

「空白でない間」なら Do While Cells(i, 1).Value <> ""。「空白になるまで」なら Do Until Cells(i, 1).Value = ""。読みやすいほうを選んでみてください。

Do ... Loop Until（後判定・満たすまで）

処理を1回実行したあとに「条件を満たしたか」を判定する形です。4パターンの最後の1つ。

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

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

    Do
        Debug.Print i & "回目の処理"
        i = i + 1
    Loop Until i > 3

    Debug.Print "ループ終了（i は " & i & "）"
End Sub

こちらも i = 1 スタートなら出力は同じ4行になります。後判定なので、条件を満たしていても中身が必ず1回は実行される点が特徴。

実務では「『終了』と入力されるまで InputBox を出し続ける」処理がこの形の定番です。後ほど実務コードとして紹介しますね。

4パターン早見表と選択フローチャート

まずは4パターンを1枚の表で見比べてみましょう。

表を眺めても迷うときは、次の3つの質問に順番に答えてみてください。1問ずつたどれば必ず1パターンに絞れます。

• 質問1: 条件を満たしている「間」回したいですか。それとも条件を満たす「まで」回したいですか。
  • 「間」→ While を使う
  • 「まで」→ Until を使う
• 質問2: 条件の判定結果に関係なく、最低1回は必ず実行したいですか。
  • いいえ（0回でもよい）→ 判定を前に置く（Do While 条件 / Do Until 条件）
  • はい（必ず1回）→ 判定を後に置く（Loop While 条件 / Loop Until 条件）
• 質問3: 途中で強制的に抜ける可能性がありますか。
  • はい → ループ内に If 条件 Then Exit Do を追加する（4パターン共通で使えます）

質問1と質問2の組み合わせで、4パターンのどれか1つに確定します。質問3は上乗せのオプションなので、どのパターンにも足せますよ。

同じ条件で4パターンを回すとこうなる

言葉の説明より、実行結果を見たほうが早いかもしれません。初期値は4パターンとも i = 10 で統一します。条件式も i <= 3（Until 側は i > 3）でそろえ、続けて動かしてみますね。

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

    '--- 1: Do While ... Loop（前判定・満たす間） ---
    i = 10
    Debug.Print "【1】Do While ... Loop"
    Do While i <= 3
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop

    '--- 2: Do ... Loop While（後判定・満たす間） ---
    i = 10
    Debug.Print "【2】Do ... Loop While"
    Do
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop While i <= 3

    '--- 3: Do Until ... Loop（前判定・満たすまで） ---
    i = 10
    Debug.Print "【3】Do Until ... Loop"
    Do Until i > 3
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop

    '--- 4: Do ... Loop Until（後判定・満たすまで） ---
    i = 10
    Debug.Print "【4】Do ... Loop Until"
    Do
        Debug.Print "  実行: i = " & i
        i = i + 1
    Loop Until i > 3
End Sub

イミディエイトウィンドウの出力はこうなります。

【1】Do While ... Loop
【2】Do ... Loop While
  実行: i = 10
【3】Do Until ... Loop
【4】Do ... Loop Until
  実行: i = 10

結果を表に整理してみましょう。

前判定の2つは1行も出力しません。条件を満たしていないので、中身に入る前に終了するからです。対する後判定の2つは、それぞれ1回ずつ「実行: i = 10」を出力しました。

この非対称性が実務でどう効くかというと、データが0件のときに差が出ます。前判定なら空のシートに対して何もせず終了。後判定だと、データが無くても先頭の1行を処理してしまいます。空セルを計算に使ってエラーになりかねません。

TIP

迷ったら Do While ... Loop（前判定・While） を選んでおけば大きく外しません。最もよく使われる形ですし、条件を先にチェックするぶん安全側に倒れます。「必ず1回は実行したい」とはっきり言える場面だけ、後判定に切り替えましょう。

実務でよく使うDo Loopのコード4選

ここからは、業務でそのまま使えるコードを4本紹介します。どれも Cells(行, 列) でセルを指定しているのがポイント。行番号を変数で動かせるので、Do Loop とは相性が抜群なんです。

指定方法の違いが気になる方はRangeとCellsの使い分けものぞいてみてください。

各コードの冒頭には「なぜ For ではなく Do Loop なのか」を1行で添えました。ここが理解できると、自分のデータに当てはめるときの判断が速くなりますよ。

空白セルが出るまで下に読む（最終行が変動するデータ）

なぜ Do Loop か: データが何行あるかを、事前に数えなくていいから。

A列に商品名、B列に金額が並んだシートを想定します。空白セルに当たるまで下へ読み進め、B列の合計と件数を出すコードです。

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

    Set ws = ActiveSheet
    i = 2 '1行目はヘッダーなので2行目から開始
    total = 0

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

    MsgBox "合計: " & Format(total, "#,##0") & "円" & vbCrLf & _
           "件数: " & (i - 2) & "件"
End Sub

上のサンプルデータで実行すると、A5が空白なのでループは3周で終わります。合計は 1200 + 800 + 2500 = 4500。ループを抜けた時点で i は5なので、件数は 5 - 2 = 3 件です。

表示されるメッセージはこうなります。

合計: 4,500円
件数: 3件

データが10行に増えても100行に増えても、コードは1文字も変えなくて大丈夫。ここが Do Loop のありがたさです。

なお、同じことは「先に最終行を確定させて For文で回す」やり方でも実現できます。詳しくはVBA最終行の取得方法をご覧ください。途中に空白行が混ざるデータでは、そちらのほうが安全なケースもありますよ。

目標金額に達するまで加算して行を特定する

なぜ Do Loop か: 何行目で目標に届くかは、実際に足してみるまで分からないから。

日別の売上を上から加算し、累計が100万円に達した行を特定するコードです。「〜まで」なので Until が自然に読めますね。

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

    Set ws = ActiveSheet
    i = 2 '1行目はヘッダーなので2行目から開始
    cumulative = 0
    target = 1000000 '目標は100万円

    Do Until cumulative >= target
        If ws.Cells(i, 1).Value = "" Then
            MsgBox "データが尽きました。累計 " & _
                   Format(cumulative, "#,##0") & "円で目標未達です"
            Exit Sub
        End If
        cumulative = cumulative + ws.Cells(i, 2).Value
        i = i + 1
    Loop

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

累計の動きを追ってみましょう。

• 2行目を足して 320,000円 → まだ目標未達
• 3行目を足して 600,000円 → まだ目標未達
• 4行目を足して 1,010,000円 → ここで cumulative >= target が True になる

このときループを抜けた i は5です。実際に目標へ到達させたのは1つ前の4行目なので、i - 1 を表示しています。

目標達成
4行目で累計 1,010,000円

このコードの安全弁が If ws.Cells(i, 1).Value = "" Then の分岐。データが尽きても目標に届かない場合、この分岐がないと空白行を延々と読み続けてしまいます。

「終了」と入力されるまで受け付ける（後判定の出番）

なぜ Do Loop か: 何件入力されるかはユーザー次第で、事前に回数を決められないから。

入力ダイアログは「まず1回は必ず表示したい」もの。だから後判定の Loop Until がぴったりハマります。

Sub InputItemsLoop()
    Dim userInput As String '入力された文字列
    Dim itemList As String '登録した品名の一覧
    Dim itemCount As Long '登録件数

    itemList = ""
    itemCount = 0

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

        If userInput = "" Then Exit Do 'キャンセル・空入力なら中断
        If userInput <> "終了" Then
            itemList = itemList & userInput & vbCrLf
            itemCount = itemCount + 1
        End If
    Loop Until userInput = "終了"

    If itemCount > 0 Then
        MsgBox itemCount & "件を登録しました" & vbCrLf & itemList
    Else
        MsgBox "登録された品名はありません"
    End If
End Sub

「ノート」「ペン」「終了」の順に入力した場合を追ってみましょう。

• 1周目: 「ノート」を登録（件数1）
• 2周目: 「ペン」を登録（件数2）
• 3周目: 「終了」が入力され、追加せずにループ終了

最終的に表示されるメッセージがこちらです。

2件を登録しました
ノート
ペン

見落としやすいのが If userInput = "" Then Exit Do の1行。InputBox のキャンセルボタンは空文字を返します。この分岐がないと「キャンセルしても終われない」状態になってしまうんです。

ユーザー入力を扱うループでは、キャンセルの脱出口を必ず用意すると覚えておきましょう。

条件に合うセルを上から順に検索する

なぜ Do Loop か: 「見つかったかどうか」を条件式にそのまま書けて、意図が読み取りやすいから。

A列を上から照合し、一致した行を選択するコードです。最終行は End(xlUp) で先に取得しておきます。

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

    Set ws = ActiveSheet
    searchWord = InputBox("検索する値を入力してください")
    If searchWord = "" Then Exit Sub 'キャンセル時は何もしない

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    i = 2
    isFound = False

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

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

A2からA5に「りんご」「みかん」「ぶどう」「もも」が入っているとしましょう。「ぶどう」で検索すると、2行目と3行目は不一致で i が進みます。

4行目で isFound が True に変わります。次の判定で Not isFound が False になり、ループ終了。

条件式の And Not isFound が効いていて、見つかった瞬間に止まる作りです。見つからなかった場合は i が lastRow を超えて終了するので、無限ループにはなりません。

Find メソッドを使えば1行で書ける処理ではあります。それでも Do Loop で書く価値があるのは、照合しながら途中に別の処理を挟めるからなんですね。

おまけ：フォルダ内のファイルを順に処理する（Dir関数）

最後に、セル以外の定番パターンも1つ紹介しておきますね。

Dir 関数は、最初に Dir("パス*.xlsx") のようにパスを指定して呼び出します。2回目以降は引数なしの Dir() を呼ぶと、次のファイル名が返ってくる仕組み。該当ファイルが尽きると長さ0の文字列が返るので、それが終了の合図になります。

Sub ListFilesInFolder()
    Dim folderPath As String 'フォルダのパス
    Dim fileName As String 'ファイル名

    folderPath = "C:Sample"
    fileName = Dir(folderPath & "*.xlsx")

    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir() '引数なしで次のファイル名を取得
    Loop
End Sub

何件あるか分からないファイル群を順に処理する。まさに Do Loop の独壇場です。

無限ループを止める・防ぐ・抜ける

Do Loop で唯一こわいのが無限ループです。条件が永遠に True のままだと、Excel が応答しなくなってしまいます。

このセクションは3段構えでお届けします。

• まず「いま固まっている人」向けの止め方
• 次に途中脱出の Exit Do
• 最後に、そもそも起こさないための書き方

いま固まっている人へ：Esc → Ctrl + Break → 強制終了

急いでいる方のために、対処を段階表にまとめました。上から順に試してみてください。

Mac をお使いの場合は Command + ピリオドが中断キーになります。

段階1と2で中断できると、ダイアログが表示されます。ボタンは「デバッグ」「続行」「終了」の3つ。ここで 「デバッグ」を選ぶのが正解です。

「デバッグ」を押すと、いま実行中の行が黄色くハイライトされます。そこが無限ループの現場。ハイライトされた Do と Loop の間を見て、次の2点を確認してみてください。

• カウンター変数を進める行（i = i + 1 など）が抜けていないか
• 条件式が、いつか必ず False（Until なら True）になる作りか

VBE 側から止めることもできます。VBE のメニューで「実行」→「中断」を選ぶか、同じく Ctrl + Break を押す方法です。

中断したあとは F8 キーで1行ずつ実行し、変数の値がどう変わるかを追えます。この1行ずつ実行する操作こそステップ実行。詳しい手順はVBAデバッグの方法で解説しています。

NOTE

ノートPCによっては Break キーが独立して用意されていません。その場合の代替操作は機種によって異なるため、お使いの端末のサポート情報を確認してください。

強制終了の詳しい手順はExcelマクロが止まらない時の強制終了4ステップにまとめてあります。この記事では「Do Loop のどこを直すか」に絞ってお伝えしますね。

Exit Doで途中脱出する（If との組み合わせ・ネスト時の挙動）

Exit Do は、Do Loop を途中で抜けるためのステートメントです。ループ内の好きな場所に、いくつでも置けます。

単独で書くと必ず1周目で抜けてしまうので、実際には If とセットで使うのが基本形。

Do While 条件式
    If 異常を検知する条件 Then Exit Do  '安全弁
    '--- 通常の処理 ---
Loop

「想定外のデータが来たら抜ける」「上限回数に達したら抜ける」といった安全弁として働きます。条件分岐の書き方に不安があれば、VBA If文の使い方を先に押さえておくと理解が早いですよ。

ここで1つ、間違えやすい仕様があります。ループを入れ子にした場合の挙動です。入れ子（ネスト）とは、ループの中にさらに別のループを書く構造のこと。

Exit Do が抜けるのは、それが書かれている一番内側のループだけ。 外側のループは止まらず、そのまま続きます。

Sub ExitDoInNestedLoop()
    Dim outerNo As Long '外側のカウンター
    Dim innerNo As Long '内側のカウンター

    outerNo = 1
    Do While outerNo <= 2
        innerNo = 1
        Do While innerNo <= 3
            If innerNo = 2 Then Exit Do '内側だけを抜ける
            Debug.Print "outer=" & outerNo & " / inner=" & innerNo
            innerNo = innerNo + 1
        Loop
        Debug.Print "→ 外側は継続中（outer=" & outerNo & "）"
        outerNo = outerNo + 1
    Loop
End Sub

出力を見ると、外側が止まっていないことがはっきり分かります。

outer=1 / inner=1
→ 外側は継続中（outer=1）
outer=2 / inner=1
→ 外側は継続中（outer=2）

内側のループは innerNo が2になった時点で毎回抜けています。それでも外側は2周しました。Exit Do の直後にある「→ 外側は継続中」の行も、きちんと実行されていますね。

外側まで含めて一気に終わらせたいなら、Exit Sub を使います。こちらはプロシージャそのものを終了し、呼び出し元へ制御を返す命令。「ループを1つ抜けるのが Exit Do、処理全体を終えるのが Exit Sub」と整理しておきましょう。

そもそも起こさない書き方3つ（上限カウンター / DoEvents / 更新忘れ点検）

止め方を知っていても、止めずに済むのが一番ですよね。予防策を3つ紹介します。

1. 上限カウンターで安全弁をつける

ループが回った回数を数え、想定を超えたら強制的に抜ける方法です。条件式にバグがあっても、確実に終わりが来ます。

Sub SafeLoopWithLimit()
    Dim i As Long '行カウンター
    Dim guard As Long '安全弁カウンター
    Const MAX_LOOP As Long = 10000 '許容する最大周回数

    i = 2
    guard = 0

    Do While Cells(i, 1).Value <> ""
        guard = guard + 1
        If guard > MAX_LOOP Then
            MsgBox "ループが" & MAX_LOOP & "回を超えました。条件式を見直してください"
            Exit Do
        End If

        '--- ここに1行ごとの処理を書く ---
        i = i + 1
    Loop
End Sub

上限値は扱うデータ量に合わせて決めてください。数千行のデータなら10,000回もあれば十分です。書き慣れないうちは、この安全弁を必ず入れる習慣にしておくと安心。

2. DoEvents で中断を受け付けやすくする

DoEvents は、OS にイベント処理を渡す関数です。引数は不要で、ループ内に1行書くだけ。

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

    i = 2
    Do While Cells(i, 1).Value <> ""
        DoEvents 'OSにイベント処理を渡す
        Cells(i, 3).Value = Cells(i, 2).Value * 1.1
        i = i + 1
    Loop
End Sub

これを入れておくと、Esc や Ctrl + Break が効きやすくなることがあります。長時間かかるループには入れておく価値がありますね。

ただし万能ではありません。OS 側の処理をはさむぶん、ループ全体の速度は落ちます。件数が多い処理では体感できるレベルで遅くなるため、必要な場面に絞って使いましょう。

3. カウンター更新忘れを自己点検する

無限ループの原因で圧倒的に多いのが、カウンター変数の更新忘れです。書き終えたら、次の3点をセルフチェックしてみてください。

• カウンターを進める行（i = i + 1 など）が Do と Loop の間にあるか
• その行が If の中に入っていないか
• 条件式が、いつか必ず終了側に転ぶ作りになっているか

2番目が特に落とし穴。次のコードは一見それらしく見えますが、確実に無限ループします。

' NG例: カウンターの更新が If の中に入っている
Sub BadLoop_CounterInsideIf()
    Dim i As Long '行カウンター
    i = 2

    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value > 0 Then
            i = i + 1  'B列が0以下の行に当たると、ここを通らない
        End If
    Loop
End Sub

B列に0や空白の行が1つでもあると、その行で i が止まったまま同じセルを見続けます。正しくは、次のようにカウンターを If の外へ出しましょう。

' OK例: スキップする行でもカウンターは必ず進む
Sub GoodLoop_CounterOutsideIf()
    Dim i As Long '行カウンター
    i = 2

    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value > 0 Then
            '--- 条件を満たす行だけの処理 ---
        End If
        i = i + 1  'どの行でも必ず進む
    Loop
End Sub

カウンターの更新は If の外。この一点を守るだけで、無限ループの大半は防げます。

よくある質問

質問に入る前に、Do Loop 特有のエラーを早見表にまとめておきます。エラーメッセージから逆引きしてみてください。

ここに載っていないエラー番号に遭遇したら、VBAマクロのエラー解決ガイドで番号から探せます。ブックマークしておくと便利ですよ。

While と Until はどちらを使えばいいですか？

動作は同じにできるので、条件式が自然に読めるほうを選んで大丈夫です。

Do While i <= 3 と Do Until i > 3 は、まったく同じ回数だけ回ります。While 側は条件を満たす「間」、Until 側は条件を満たす「まで」。同じ処理を書くなら、条件式を否定形にひっくり返すだけです。

読みやすさで選ぶなら、こんな基準が使えます。

• 「〜でない間は続ける」と言いたい → While（例: Do While Cells(i, 1).Value <> ""）
• 「〜になったら終わり」と言いたい → Until（例: Do Until Cells(i, 1).Value = ""）

日本語で読み上げてしっくりくるほうが、あとから読み返したときのバグも減ります。チームで共有するマクロならなおさら。

Do Loop の途中で次の周回に飛ばせますか？（VBAにContinueはない）

VBA には他言語の Continue にあたるステートメントがありません。 用意されているのは Exit Do や Exit For など、ループそのものを抜ける命令だけです。

代わりに使うのが If によるスキップ。「処理したい条件」で本体を囲み、カウンターの更新はその外に置きます。

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

    i = 2
    Do While Cells(i, 1).Value <> ""
        If Cells(i, 2).Value <> "" Then
            '--- B列に値がある行だけ処理する ---
            Cells(i, 3).Value = Cells(i, 2).Value * 1.1
        End If
        i = i + 1 'スキップした行でも必ず進める
    Loop
End Sub

GoTo とラベルでスキップを実装する方法もあります。ただし処理の流れが追いづらくなるため、まずは上の If で囲む書き方をおすすめします。

Do Loop は For~Next より遅いですか？

ループの種類による速度差を気にする必要は、ほとんどありません。

公式に「Do Loop のほうが遅い」といった規定はありません。実務で体感できるほどの差も出にくいものです。速度に効いてくるのは、ループの形式ではなくループの中で何をしているか。

処理を速くしたいなら、次のような点を見直すほうが効果的ですよ。

• 1周ごとにセルへ読み書きする回数を減らす（配列にまとめて処理する）
• 画面の再描画を止める（Application.ScreenUpdating = False）
• 不要な DoEvents を外す

ループ形式の選択は、速度ではなく書きやすさと安全性で決めてくださいね。

Do Loop は入れ子（ネスト）にできますか？

できます。 行と列の両方向に走査したいときの定番パターンです。

Sub NestedDoLoop()
    Dim r As Long '行カウンター
    Dim c As Long '列カウンター

    r = 2
    Do While Cells(r, 1).Value <> ""
        c = 2 '外側の1周ごとに必ず初期化する
        Do While Cells(1, c).Value <> ""
            Cells(r, c).Value = Cells(r, c).Value * 1.1
            c = c + 1
        Loop
        r = r + 1
    Loop
End Sub

ネストで必ず守るべきルールは2つあります。まず、内側と外側で別々のカウンター変数を使うこと。同じ変数を使い回すと、互いの周回数が壊れてしまいます。

もう1つが、内側のカウンターを外側の1周ごとに初期化すること。上のコードで c = 2 を内側ループの直前に書いているのはこのためです。初期化を忘れると、2周目以降は c が最終列を超えたままなので、内側が1回も回りません。

なお、内側のループに書いた Exit Do が抜けるのは内側だけ。外側は継続します。この挙動は前のセクションで、実際の出力とともに確認しましたね。

「Loopがありません」「オーバーフロー」が出るのはなぜ？

「Loop がありません」は、Do に対応する Loop が見つからないときのコンパイルエラーです。 コンパイルエラーとは、実行する前の構文チェックで見つかる文法上の誤りのこと。

ネストが深いと発生しやすいエラーです。Do と Loop を同じインデント位置に揃えて書く習慣をつけましょう。逆に Loop が多すぎる場合は「Do がありません」と表示されます。

オーバーフロー（実行時エラー '6'）は、変数に入りきらない値を入れようとしたときのエラーです。 Integer 型が扱えるのは -32,768 〜 32,767 の範囲だけ。

Excel の行数は最大1,048,576行あります。行カウンターに Integer を使うと、途中で必ず破綻してしまうんですね。

対処はシンプルで、Long 型に変更するだけ。Long なら -2,147,483,648 〜 2,147,483,647（約21億）まで扱えます。ループのカウンターは常に Long と決めてしまうのが安全です。

もう1つ、見落としやすいパターンがあります。計算の途中結果がオーバーフローするケースです。

Dim total As Long

total = 2000 * 365       'オーバーフローになる
total = CLng(2000) * 365 'OK（先に Long へ変換する）

原因は右辺にあります。代入先が Long でも、整数どうしの計算は一時的に Integer として扱われるんです。CLng で明示的に変換すれば回避できますよ。

まとめ

Do Loop は「回数ではなく条件で終わりを決める」ためのステートメントです。最後に要点を振り返っておきましょう。

• 使い分け: 回数が決まっていない繰り返しは Do Loop。決まっているなら For~Next、集合をまるごとなら For Each
• While と Until: While は条件を満たす「間」、Until は条件を満たす「まで」。条件式を否定形にすれば置き換え可能
• 前判定と後判定: 前判定（Do While / Do Until）は0回実行もあり得る。後判定（Loop While / Loop Until）は必ず1回実行される
• 迷ったら: Do While ... Loop を選べば大きく外さない
• 無限ループ対策: 止めるのは Esc → Ctrl + Break。防ぐのは上限カウンター・Exit Do・カウンター更新の点検
• カウンターは Long: Integer は32,767でオーバーフローする

一番のつまずきポイントは、やはりカウンターの更新忘れです。Do と Loop の間を見て「この変数、ちゃんと進んでる？」と自問する癖をつけましょう。それだけで無限ループはぐっと減らせます。

条件付きの繰り返しが書けるようになると、VBA でできることの幅が一気に広がりますよ。まずは4パターンの最小コードを VBE に貼り付けて、イミディエイトウィンドウの出力を眺めてみてください。動きが目で見えると、前判定と後判定の違いもすっと腹落ちするはずです。

関連記事

• VBA For~Next文の使い方｜繰り返し処理の基本から実務パターンまで解説
• VBA For Eachの使い方｜セル・シート・配列を1行でループ処理
• VBA If文の使い方｜条件分岐を基本から実務コードまで解説
• Excelマクロが止まらない時の強制終了4ステップ
• VBAマクロのエラー解決ガイド｜頻出エラー別の直し方
• 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の中でも使用頻度がとても高い構文です。まずはこの記事のサンプルコードをコピーして動かしてみてください。自分で動かしてみると、理解がぐっと深まりますよ。