VBAでセル範囲や配列を繰り返し処理｜For Each文の実例と注意点

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

・Excelのセル範囲やコレクションに対して、処理を繰り返したい！

・ループの回数を意識せずに、データ全体に対して一括操作をしたい！

その場合は、VBAの「For Each文」を
使用すると解決します！

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

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

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

【　この記事の概要　】

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

動画での丁寧な解説や、実践的な学習スタイルで、初心者でも無理なく基礎から応用まで習得できます。
自己学習を進める上で、何度でも繰り返し見返せる講座は非常に心強い味方になりますよ！

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

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

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

VBAの繰り返し処理「For Each文」とは？

VBAの「For Each文」は、コレクションや配列の各要素に対して繰り返し処理を行うための構文です。
Excelの「セル範囲」や「配列」、「オブジェクト」を効率的に操作する際に非常に便利です。

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

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

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

「For Each文」と「For Next文」との違いについて解説

「For Next文」は、あらかじめ繰り返す回数を指定して、ループを行います。
カウンタ変数（例: i）を使って、決まった回数だけ繰り返し処理を行います。

「For Each文」と「For Next文」の違い

For Next分については、別の記事で詳細を解説しています。
合わせてご覧ください。

あわせて読みたい

VBA For Next文の使い方完全ガイド｜ループ処理と抜ける方法を解説 「エクセルを使用していて、同じ処理を効率的に処理したい。」このように悩んでいませんか？ ・Excelで同じ処理を繰り返し行いたい！・特定の範囲やデータに対して効率...

繰り返し処理「For Each文」の基本構文

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

実際のコード記述例

以下に、実際のコードの記述例を示します。

具体的な動作やコード解説については、使用例で確認してください。

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

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

このコードでは、セル範囲「A1」内のすべてのセルに「処理済み」という文字を入力します。

より詳しい情報は、Microsoft公式のFor Each…Next ステートメントを使用するを参照してください。

For Each文を使った繰り返し処理とループの抜け方 | セル範囲と配列操作

For Each文が「セル範囲」に対する処理順序

Excelのセル範囲（Range）に対してFor Each文を使った場合、データの処理は「列方向」に進んでいきます。

その後、「行方向」に１つセルを下にずらし、再度「列方向」に進みます。

つまり、最初に列方向を基準にセルを処理し、次に行方向へ移動するという動作になります。

For Eachで「セル範囲」を指定する場合のコード具体例

以下のコードでは、セル範囲「A1:C3」の各セルに対してループ処理を行い、そのループしたセルのアドレスをイミディエイトウィンドウに出力します。

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文」は、VBAで配列内の要素に対して繰り返し処理を行う際も非常に便利です。

VBAで配列を効率よく繰り返し処理を行いたい場合、For Each文を使えば配列内の全要素に対して簡単に操作できます。

以下に、VBAで配列のループ処理を行うための具体例を示します。

1次元配列を使ったFor Each文の具体例

まずは、1次元配列に対する繰り返し処理の例です。

1次元配列とは、単純なリストのようなもので、VBAでデータを連続的に保存し、繰り返し処理に活用できるデータ構造です。

たとえば、数値や文字列を複数格納し、それらを順番に処理する場合に使用します。

以下のコードでは、数値を含む配列を作成し、For Each文を使って配列内の各要素に対して繰り返し処理を行い、要素を2倍にしてイミディエイトウィンドウに出力しています。

Sub ArrayProcessing()
    Dim numArray As Variant
    Dim num As Variant

    '// 配列を作成
    numArray = Array(1, 2, 3, 4, 5)

    '// For Each文で配列内の各要素を処理
    For Each num In numArray
        Debug.Print num * 2 '// 各要素を2倍にしてイミディエイトウィンドウに出力
    Next num
End Sub

このコードを実行すると、各要素が2倍され、以下のような結果がイミディエイトウィンドウに出力されます。

1次元配列の処理結果を解説

このように、1次元配列では要素が一つずつ順番に処理され、ループ処理によって繰り返し操作が簡単に行えます。

あわせて読みたい

VBA Array関数の使い方徹底解説！1次元配列・２次元配列の操作をマスターしよう 「VBAで配列の要素数を簡単に取得したいけど、どうやるんだろう？」このように悩んだことはありませんか？ ・複数のデータを一度に扱いたい。　どうやって配列を簡単に...

2次元配列を使ったFor Each文の具体例

次に、2次元配列に対するFor Each文の使い方を解説します。

⇒　2次元配列とは？という方はこちら

VBAで2次元配列の繰り返し処理する際に「For Each」を使うと、メモリ上で効率よくデータを扱うことができます。これにより、処理の高速化が可能です。

以下のコードでは、2次元配列を作成し、For Each文を使って各要素に対して繰り返し処理を行い、要素を2倍にしてイミディエイトウィンドウに出力します。

Sub TwoDimArrayProcessing()
    Dim twoDimArray(1, 2) As Variant
    Dim element As Variant

    '// 2次元配列に手動でデータを代入
    twoDimArray(0, 0) = 1
    twoDimArray(0, 1) = 2
    twoDimArray(0, 2) = 3
    twoDimArray(1, 0) = 4
    twoDimArray(1, 1) = 5
    twoDimArray(1, 2) = 6

    '// For Each文で2次元配列内の各要素を処理
    For Each element In twoDimArray
        Debug.Print element * 2 '// 各要素を2倍にしてイミディエイトウィンドウに出力
    Next element
End Sub

このコードを実行すると、2次元配列内の各要素が処理され、結果がイミディエイトウィンドウに出力されます。

2次元配列の処理順序を解説

For Each文で2次元配列を処理する場合、配列内の要素はまず「行方向」に処理され、その後「列方向」に進んでいきます。

配列に対するFor Each文の注意点

For Eachで処理する際の「セル範囲」と「配列」の違い

For Each文でループを抜ける方法

VBAで「For Each文」を使用している場合、特定の条件が満たされた時点でループを終了したいことがあります。このようなケースでは、「Exit For」を使うことで簡単にループを抜けることができます。

たとえば、配列やセル範囲を繰り返し処理している最中に、特定の値に達したら処理を終了させたい場合に便利です。次のコードでは、値が「5」になった時点でループを終了しています。

Sub ForEachExitExample()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If cell.Value = 5 Then
            Exit For ' ループを抜ける
        End If
    Next cell
End Sub

このように、VBAでループを抜ける方法としてExit Forは非常に便利です。
特定の条件を満たした際にループをすぐに終了できるため、処理を効率化して動作を早めることができます。

例えば、不要なループを回避できるので、全体の処理速度が向上します。

For Each文を使う際の注意ポイントについて

For Each文の使用例をご紹介

ここからは、「For Each文」の使用例を紹介します。

どれも実際に動作するコードなので、ぜひ実行してみてください。

VBAをしっかり学びたいけれど、「どこから始めればいいかわからない」と迷っていませんか？

そんな方には、UdemyのVBA講座がおすすめです。

動画での丁寧な解説や、実践的な学習スタイルで、初心者でも無理なく基礎から応用まで習得できます。
自己学習を進める上で、何度でも繰り返し見返せる講座は非常に心強い味方になりますよ！

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

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

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

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

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

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

End Sub

処理結果

コードの動作概要

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

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

1行ずつコードを解説

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

使用例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行ずつコードを解説

このコードは、現在開いているワークブック内のすべてのワークシート名を、シート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 (図形のオブジェクト)

1行ずつコードを解説

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

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

1次元配列内の各要素に対して処理を行う方法を紹介します。
ここでは、配列のすべての要素に「*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

処理内容

コードの動作概要

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

• 静的配列

1行ずつコードを解説

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

使用例5: 2次元配列の要素を2倍にして出力する

2次元配列にデータを手動で入力し、For Each文を使って各要素を処理する方法を紹介します。
ここでは、配列内の各要素を取り出して、値を2倍にして出力します。

主な使用用途: 2次元配列のデータを一括で処理したい場合に使用します。

Sub TwoDimArrayProcessing()
    Dim twoDimArray(1, 2) As Variant
    Dim element As Variant

    '// 2次元配列に手動でデータを代入
    twoDimArray(0, 0) = 1
    twoDimArray(0, 1) = 2
    twoDimArray(0, 2) = 3
    twoDimArray(1, 0) = 4
    twoDimArray(1, 1) = 5
    twoDimArray(1, 2) = 6

    '// For Each文で2次元配列内の各要素を処理
    For Each element In twoDimArray
        Debug.Print element * 2 '// 各要素を2倍にしてイミディエイトウィンドウに出力
    Next element
End Sub

処理内容

コードの動作概要

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

• 2次元配列

1行ずつコードを解説

この処理を行うことで、2次元配列内の全ての要素に対して処理を一括で実行し、結果を確認することができます。

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

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

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

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 (条件分岐)

1行ずつコードを解説

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

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

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

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

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 (条件分岐)

1行ずつコードを解説

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

この記事のまとめ

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

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

ポイントのおさらい

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

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「Python...