【VBAリファレンス】VBA入門コレクション処理（For Each）

スポンサーリンク

VBAにおけるコレクション処理の極意：For Eachステートメントの完全理解

Excel VBAでの開発において、最も頻繁に発生する処理の一つが「複数のオブジェクトを順番に操作する」という作業です。ワークシート上のすべてのセル、ブック内のすべてのシート、あるいは動的に生成されたコントロールの集合体など、私たちは常に「集団（コレクション）」を相手にしています。

多くの初心者エンジニアは、For…Next構文によるインデックス指定（For i = 1 To Count）を多用しがちですが、VBAにおける真のプロフェッショナルは「For Each…Next」ステートメントを使いこなします。本稿では、なぜFor Eachが推奨されるのか、その技術的背景から実務での応用までを徹底的に解説します。

For Eachステートメントの技術的優位性

For Eachステートメントは、コレクション内の各要素に対して順次処理を行うための専用構文です。この構文がFor…Next（インデックス指定）よりも優れている理由は、主に以下の3点に集約されます。

第一に「可読性の高さ」です。For Eachを用いることで、「何を（What）」対象にしているのかがコード上で明示され、インデックス変数（iやj）の管理や、上限値の算出（Worksheets.Countなど）が不要になります。これにより、コードの意図が明確になり、メンテナンス性が飛躍的に向上します。

第二に「安全性」です。For…Nextでインデックスを操作する場合、途中で要素を削除したり追加したりすると、インデックスのズレが発生し、実行時エラーや意図しないスキップを引き起こすリスクがあります。一方、For Eachはイテレータ（反復子）が内部的に制御されているため、コレクションの内部構造に依存せず、常に全要素を安全に巡回することが可能です。

第三に「処理速度」です。厳密なベンチマークをとると、特定の状況下ではインデックスアクセスの方が高速なケースもありますが、現代のExcel環境においてはその差は誤差の範囲です。むしろ、オブジェクトのインデックス解決にかかるオーバーヘッドを回避できるFor Eachの方が、オブジェクト操作においては効率的であることが多いのです。

For Eachの基本構文と実行メカニズム

For Eachステートメントの基本構造は非常にシンプルです。


Dim obj As Object
For Each obj In Collection
    ' ここに処理を記述
Next obj

ここで重要なのは、変数の型指定です。もし対象がワークシートであれば「Dim ws As Worksheet」、セルであれば「Dim rng As Range」と、可能な限り具体的な型を指定してください。Object型で宣言することも可能ですが、これでは「IntelliSense（入力補完）」が効かず、型変換のオーバーヘッドも発生します。プロフェッショナルなコードを目指すのであれば、適切な型定義は必須の作法です。

実務で直面する高度なコレクション処理

実務では、単にコレクションを回すだけでなく、条件分岐や動的な操作が求められます。以下に、現場で頻出する「指定した条件を満たすセルのみを赤くする」という処理のサンプルコードを提示します。


Sub HighlightSpecificCells()
    Dim rng As Range
    Dim cell As Range
    
    ' A1:A10の範囲をセット
    Set rng = Range("A1:A10")
    
    ' For Eachでセルを一つずつ巡回
    For Each cell In rng
        ' 値が100より大きい場合のみ処理
        If cell.Value > 100 Then
            cell.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub

この例では、Rangeオブジェクトをコレクションとして扱っています。Rangeは単一のセルであっても、複数のセルの集合であっても同じ構文で処理できるため、非常に強力な抽象化が実現されています。

また、ブック内のすべてのシートをループさせ、特定のシート名を除外して処理するようなケースも、For Eachの独壇場です。


Sub ProcessAllSheetsExceptSummary()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ' "Summary"という名前のシートは除外する
        If ws.Name <> "Summary" Then
            ws.Range("A1").Value = "Processed"
        End If
    Next ws
End Sub

実務アドバイス：コレクション処理における注意点

For Eachを使用する上で、絶対に避けるべきアンチパターンが一つあります。それは「ループ処理中に、ループ対象となっているコレクションの要素を削除すること」です。

例えば、特定の条件を満たす行を削除しようとして、For Eachで全行を巡回しながら行削除を行うと、イテレータが混乱し、削除後の要素を正しく参照できなくなります。このような場合は、あらかじめ削除対象を別のコレクションに格納するか、あるいは「後ろから前へ」ループするFor…Next構文を使用する必要があります。

また、コレクションが非常に巨大（例えば数万行のセル）である場合、For Eachで直接セルにアクセスすると、Excelの再描画処理が走ることでパフォーマンスが極端に低下します。その場合は、一度配列（Variant型）に値を読み込み、配列に対してFor…Nextで処理を行う「メモリ内処理」への切り替えを検討してください。コレクション処理は便利ですが、パフォーマンスのボトルネックを常に意識するのがエンジニアの責任です。

まとめ

For Eachステートメントは、VBAにおける「オブジェクト指向的な操作」の入り口です。インデックスという物理的な位置に依存するのではなく、コレクションという論理的な集合体に対してアプローチすることで、コードはより堅牢に、より直感的になります。

初心者のうちはFor…Nextによるインデックス管理で満足してしまいがちですが、中級者・上級者へのステップアップを目指すのであれば、まず「この処理はFor Eachで書けないか？」と自問自答する癖をつけてください。オブジェクトの型を正しく定義し、コレクションの特性を理解した上でFor Eachを使いこなす。この小さな積み重ねが、バグの少ない、メンテナンス性の高いVBAコードを構築するための最短距離となります。

VBAはレガシーな言語と揶揄されることもありますが、コレクションを自在に操る力があれば、Excel業務の自動化において無敵のツールへと変貌します。今日からぜひ、あなたのコードのFor…Nextを、For Eachへと書き換えてみてください。その先には、よりクリーンでプロフェッショナルな世界が広がっているはずです。

スポンサーリンク
タイトルとURLをコピーしました