概要：離れたセル範囲を自在に操る技術
Excel VBAで自動化を行う際、私たちはしばしば「連続したセル範囲」だけでなく、「離れた場所にある複数のセル」を同時に操作したいという課題に直面します。例えば、特定の条件に合致するセルだけを抽出して一括で色を塗る、あるいは飛び飛びの範囲を一気にコピーするといった作業です。
通常、Rangeオブジェクトは単一の範囲を指すものと考えがちですが、VBAには「複数の範囲を一つのオブジェクトとして扱う」ための強力な武器が存在します。それが「Unionメソッド」と「Areasプロパティ」です。これらを使いこなすことで、プログラムの処理速度は劇的に向上し、コードの可読性も飛躍的に高まります。本稿では、VBA中級者を目指す皆様に向けて、これら二つの機能を徹底解説します。
Unionメソッド：離れた範囲を一つにまとめる魔法
Unionメソッドは、複数のRangeオブジェクトを引数として受け取り、それらを結合した新しいRangeオブジェクトを返すメソッドです。文法は非常にシンプルですが、その応用範囲は計り知れません。
Unionメソッドの基本構文は以下の通りです。
Set 結合範囲 = Union(範囲1, 範囲2, [範囲3], …)
ここで重要なのは、Unionメソッドは「Rangeオブジェクトを返す」という点です。つまり、Unionの結果をSetステートメントで変数に格納することで、あたかも一つの連続した範囲であるかのように、書式設定や値の代入を一度に行うことが可能になります。
例えば、ループ処理の中で「条件に合致したセルを逐一選択する」というコードを書くと、画面のチラつきが発生し、処理速度も低下します。しかし、Unionメソッドを用いて最後にまとめて操作を行えば、Excelの描画回数を最小限に抑えることができ、驚くほど高速に動作します。
サンプルコード：Unionを活用した効率的なセル操作
以下に、特定の条件（ここでは値が100以上のセル）を検索し、それらを一括で赤色に塗りつぶす実用的なサンプルコードを示します。
Sub HighlightCellsUsingUnion()
Dim ws As Worksheet
Dim targetRange As Range
Dim cell As Range
Dim unionRange As Range
Set ws = ThisWorkbook.Sheets("Sheet1")
' A列のデータ範囲をループ
For Each cell In ws.Range("A1:A100")
If cell.Value >= 100 Then
' 初めて条件に合致した時だけ初期化
If unionRange Is Nothing Then
Set unionRange = cell
Else
' 二回目以降はUnionで結合していく
Set unionRange = Union(unionRange, cell)
End If
End If
Next cell
' 最後にまとめて書式設定を行う
If Not unionRange Is Nothing Then
unionRange.Interior.Color = vbRed
MsgBox "合計 " & unionRange.Cells.Count & " 個のセルを強調しました。"
Else
MsgBox "該当するセルはありませんでした。"
End If
End Sub
このコードの肝は、「ループ内でセルを直接操作しない」という点です。`unionRange`という変数に、条件に合致するセルを蓄積していくことで、最後の一行で効率的に処理を完結させています。
Areasプロパティ：離れた範囲を個別に紐解く
Unionメソッドで結合された範囲は、実は「Areasコレクション」という形で内部的に管理されています。Areasプロパティを使用すると、結合された範囲の中にある「個々の連続した範囲（エリア）」にアクセスすることができます。
例えば、ユーザーがCtrlキーを押しながら複数のセルを選択した場合、そのSelectionオブジェクトは複数の「エリア」から構成されています。このとき、単に `Selection.Cells` と記述すると全セルが対象になりますが、`Selection.Areas` を使うと、各ブロックごとの情報を取得できます。
これは、例えば「選択した各エリアの先頭セルだけを取得したい」「各エリアの行数や列数を個別に集計したい」といった複雑な要件において、極めて強力なツールとなります。
サンプルコード：Areasプロパティによる範囲分解
以下は、選択範囲の中にいくつのエリアが存在するかを判定し、それぞれのエリアの情報を出力するサンプルです。
Sub AnalyzeSelectedAreas()
Dim rng As Range
Dim i As Integer
Set rng = Selection
' 選択範囲内の各エリアに対してループ処理
For i = 1 To rng.Areas.Count
Debug.Print "エリア " & i & " のアドレスは: " & rng.Areas(i).Address
Debug.Print "エリア " & i & " のセル数は: " & rng.Areas(i).Cells.Count
Next i
MsgBox "合計 " & rng.Areas.Count & " 個のエリアが選択されています。"
End Sub
このコードを理解すると、ユーザーがどのような選択状態であっても、その構造をプログラム側で正しく解釈し、柔軟な処理を実装できるようになります。
実務アドバイス：なぜこの技術が必要なのか
現場でベテランエンジニアが作成したコードを見ると、必ずと言っていいほどUnionやAreasが活用されています。なぜなら、これらを使わずに `Select` や `Activate` を繰り返すコードは、保守性が低く、拡張性に欠けるからです。
実務における最大のメリットは「例外処理の簡素化」です。例えば、ユーザーが予期せぬ範囲を選択した際、Areasを使って一つずつ範囲を検証することで、「連続した範囲のみを処理対象とする」といったバリデーションを容易に実装できます。
また、Unionを使用する際の注意点として、「空のオブジェクト」を結合しようとするとエラーになる場合があります。サンプルコードで示したように、`If unionRange Is Nothing Then … Else …` という分岐処理を徹底することは、バグを未然に防ぐための必須テクニックです。
まとめ：VBAの表現力を一段上のレベルへ
UnionメソッドとAreasプロパティは、Excel VBAにおける「集合演算」の要です。これらをマスターすることは、単なる「動くコード」を作る段階から、「高速で洗練されたツール」を作る段階へとステップアップすることを意味します。
1. **Unionメソッド**で、必要な範囲をスマートに収集する。
2. **Areasプロパティ**で、複雑な選択状態を正確に解釈する。
この二つの技術を組み合わせることで、これまで「難しい」と感じていた範囲操作の多くが、驚くほどシンプルに記述できるようになるはずです。まずは小さなマクロからで構いません。ぜひ、お手元のVBAプロジェクトにUnionとAreasを取り入れ、その圧倒的な効率の良さを体感してみてください。VBA講師として、皆様のプログラミングスキルが向上することを確信しています。
