VBA For Each文の基本と応用｜Excelでの繰り返し処理を徹底解説

お疲れ様です！

VBAを使用していて、いまいち「For Each文」の意味が分からない。。。
このように悩んでいませんか？

お悩みポイント

• Excelの特定のセル範囲やコレクションに対して、効率よく処理を繰り返したい！
• ループの回数を意識せずに、データ全体に対して一括操作をしたい！

この記事では、VBAの「For Each文」を使用して、範囲やコレクション内の全要素に対して効率的に繰り返し処理を行う方法を解説します。

「For Each文」は初心者でも直感的に理解でき、配列やセル範囲、オブジェクトのコレクションを扱う際にとても便利です。

使用例はすべてコピペして実行できるので、ぜひ最後までお読みいただき、実践してみてください。

【　この記事の概要　】

この記事を読むとできるようになること

この記事を読むことで、以下のことができるようになります。

For Each文とは？

VBAの「For Each文」は、コレクションや配列の各要素に対して繰り返し処理を行うための構文です。
Excelのセル範囲やワークシート、ブック内のオブジェクトなど、複数の要素を1つずつ処理する際に非常に便利です。

「For Each文」を使うことで、各要素に順次アクセスし、個別に処理を行うことができます。

「For文」と異なり、ループの回数やカウンタ変数を意識する必要がないため、直感的かつミスが少ないコードを記述できます。

以下に、VBAで使用できる主要なループ処理を一覧でまとめました。

繰り返し処理の種類

繰り返し処理の種類	説明
For文	事前に決められた回数だけ繰り返し処理を行います。 固定回数のループに適しており、範囲内で連続した処理を行う際に便利です。
For Each文	配列やコレクション内の各要素に対して順次処理を行います。 全要素にアクセスする場合に便利で、シートのセル範囲や オブジェクトのコレクションに対してよく使用されます。
Do While文	指定された条件がTrueの間、処理を繰り返します。 条件に基づいてループを制御したい場合に使用され、 繰り返し回数が不定のケースに適しています。
Do Until文	指定された条件がTrueになるまで処理を繰り返します。 Do While文とは逆の条件で動作し、条件が満たされるまで処理を続けます。
While…Wend文	指定された条件がTrueである間、処理を繰り返します。 Do While文に似ていますが、よりシンプルなループ処理に使用されます。
Do Loop While文	処理を少なくとも1回は実行し、その後、指定された条件がTrueで あれば繰り返します。 最初に必ず1回処理が行われる点が特徴です。
Do Loop Until文	処理を少なくとも1回実行した後、指定された条件がTrue になるまで繰り返します。 条件が満たされるまで必ず1回は処理が行われます。

引用元：VBA For文の基礎から応用まで｜繰り返し処理をマスターする完全ガイド

For Each文の基本構文

この構文を使えば、配列やセル範囲などのすべての要素に対して処理を行うことができます。

セル範囲に対する処理順序

Excelのセル範囲（Range）に対してFor Each文を使った場合、データの処理は「列方向」に進んでいきます。
その後、「行方向」に１つセルを下にずらし、再度「列方向」に進みます。

つまり、最初に列を基準にセルを処理し、次に行方向へ移動します。
このため、セル範囲の取得順序には注意が必要です。

具体例

以下のコードでは、セル範囲「A1」の各セルに対して、そのセルのアドレスを出力します。

Sub CellProcessingOrder()
    Dim cell As Range
    Dim targetRange As Range
    
    '// セル範囲を指定
    Set targetRange = Range("A1:C3")
    
    '// For Each文を使ってセル範囲内の各セルを処理
    For Each cell In targetRange
        '// セルのアドレスを出力
        Debug.Print cell.Address
    Next cell
    
End Sub

このコードを実行すると、以下の順番でセルのアドレスが出力されます。

このように、ExcelのRangeオブジェクトをFor Each文で処理する際は、「列方向から行方向」に進むため、処理順序に注意する必要があります。

For Each文を使う際の注意ポイント

For Each文の使用例

ここからは、「For Each文」の使用例を紹介します。
どれも実際に動作するコードなので、ぜひ実行してみてください。

使用例1: 指定したセルに、文字を繰り返し入力。

特定のセル範囲内のすべてのセルに対して繰り返し処理を行う方法を紹介します。
ここでは、範囲内の各セルに「値」を入力します。

主な使用用途: 特定のセル範囲に対して処理を一括で適用したいときに使用します。

Sub セル範囲の値を処理する()
    Dim cell As Range

    For Each cell In Range("A1:A10")
        cell.Value = "処理済み"
    Next cell

End Sub

処理結果

このコードで使用している機能

• Dim – Set (オブジェクト変数)

詳細解説

この処理を行うことで、指定したセル範囲に文字列を入力することができます。

使用例2: ワークシートの名前を取得し、セルに出力

現在のエクセルブック内のすべてのシート名を取得し、シート1（最初のシート）のセルに順次出力する方法を紹介します。
複数のシートを持つワークブックで、シート名をリストとしてセルに表示する場合に便利です。

主な使用用途: ワークブック内のすべてのシートの名前をセルに表示したい場合に使用します。

Sub ワークシート名をセルに出力する()
    Dim Ws As Worksheet
    Dim i As Long
    
    i = 1 '// セルの行番号をカウントする変数

    For Each Ws In ThisWorkbook.Sheets
        Sheets(1).Cells(i, 1).Value = Ws.Name
        i = i + 1 '// 次の行に移動
    Next Ws
    
End Sub

処理結果

このコードで使用している機能

• Dim – Set (オブジェクト変数)

詳細解説

このコードは、現在開いているワークブック内のすべてのワークシート名を、シート1の「A列」に順番に出力します。
For Each ループを使って、すべてのワークシートを順に処理し、その名前をシートに書き込む実用的な方法です。
このコードを使えば、ワークブック内のシート名を簡単にリスト化できます。

使用例3: シート内のすべてのシェイプを削除する

現在のワークシートにあるすべてのシェイプ（図形）を選択し、削除する方法を紹介します。
ここでは、For Each文を使用して、すべてのシェイプを削除します。

主な使用用途: シート上の図形やオブジェクトを一括で操作したいときに使用します。

Sub シェイプを削除する()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next shp

End Sub

処理結果

　　　　　【　処理前　】

⇒

　　　　　【　処理後　】

このコードで使用している機能

• Shapes (図形のオブジェクト)

詳細解説

このコードは、アクティブなシート上のすべてのシェイプ（図形、画像など）を順に取得し、削除するシンプルなサブルーチンです。
For Each ループを使用して、各シェイプを順次処理し、削除する動作を実行します。

使用例4: 配列内の要素を、繰り返し計算する

配列内の各要素に対して処理を行う方法を紹介します。
ここでは、配列のすべての要素に「*2」を掛けた値を出力します。

主な使用用途: 配列のデータに対して一括で処理を行いたいときに使用します。

Sub 配列の要素を処理する()
    Dim arr As Variant
    Dim num As Variant

    arr = Array(1, 2, 3, 4, 5)

    For Each num In arr
        Debug.Print num * 2
    Next num

End Sub

処理内容

このコードで使用している機能

• 配列

詳細解説

このサブルーチンは、配列内の数値に対して、それぞれ2を掛けた結果をイミディエイトウィンドウに表示します。
配列の各要素を順番に処理するためにFor Eachループを使用しており、配列の全ての要素が処理された後にループが終了します。

使用例5: ループを条件で指定した条件で止める

セル範囲内で特定の値に達したらループを強制終了する方法を紹介します。
このように、ある条件でストップすることも可能です。

主な使用用途: 条件に応じて、早めにループを終了したい場合に使用します。

Sub ループを途中で止める()
    Dim cell As Range

    For Each cell In Range("A1:A10")
        If cell.Value = "終了" Then
            Exit For
        Else
            cell.Value = "処理中"
        End If
    Next cell

End Sub

処理結果

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• If (条件分岐)

詳細解説

このサブルーチンは、セル範囲「A1」に対して順番に処理を行い、各セルの値が「終了」であれば、ループを途中で止めます。
それ以外のセルには「処理中」と書き込みます。

使用例6: 指定した条件だけ、ループ内の処理をスキップする

セルの値が特定の条件に一致した場合、処理をスキップして次のセルに移る方法を紹介します。

主な使用用途: 特定の条件に該当する要素を飛ばしたい場合に使用します。

Sub ループをスキップする()
    Dim cell As Range

    For Each cell In Range("A1:A10")
        If cell.Value = "スキップ" Then
            GoTo Continue
        Else
            cell.Value = "処理済み"
        End If
Continue:
    Next cell

End Sub

処理結果

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• If (条件分岐)

詳細解説

このサブルーチンは、セル範囲「A1」を順に処理し、セルの値が「スキップ」であればそのセルの処理をスキップします。
それ以外のセルには「処理済み」と書き込みます。
GoToステートメントを使うことで、条件に応じたセル処理のスキップが可能です。

まとめ

「For Each文」は、配列やセル範囲、オブジェクトのコレクションに対して繰り返し処理を行う際に非常に便利です。

カウンタ変数を使わずに直感的に処理を行えるため、コードの可読性も向上します。

ポイントのおさらい

この記事の使用例を実践していくことで、VBAのFor Each文を使って、より効率的に繰り返し処理を行えるようになります。
最初はコードをコピペして実行し、少しずつ自分で書けるようにしていきましょう。