そんな悩み、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を使い始めた方なら、一度はこんな場面に出くわしたのではないでしょうか。セルに連番を振ったり、データを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の中でも使用頻度がとても高い構文です。まずはこの記事のサンプルコードをコピーして動かしてみてください。自分で動かしてみると、理解がぐっと深まりますよ。