皆さん、こんにちは！ベテランExcel VBA講師の〇〇です。
日々のExcel業務で、「特定の値を持つセルだけをピックアップして色を付けたい」「複数の条件を満たす行のデータをまとめてコピーしたい」といった要望に直面することは、もはや日常茶飯事ではないでしょうか。手作業で一つ一つ選択していくのは骨が折れますし、ミスの元にもなります。こんな時こそVBAの出番ですが、問題は「飛び飛びに存在する、条件に一致した複数のセル」をどうやって効率的に、そして堅牢に選択・操作するか、という点です。
本記事では、この課題を解決するためのVBAの強力なコンビ、`Range`プロパティと`Union`メソッドを徹底的に解説します。単に選択するだけでなく、その後の操作を見据えた実践的な活用法から、知っておくべき注意点、さらには応用例や代替案まで、ベテラン講師の視点から深掘りしてまいりましょう。
なぜ「飛び飛びのセル」の選択が難しいのか？
VBAでセルを選択する基本的な方法は、`Range`プロパティを使用することです。
例えば、`Range(“A1”).Select` で単一セルを選択できますし、`Range(“A1:B5”).Select` で連続した範囲を選択できます。また、`Range(“A1,C3,E5”).Select` のようにカンマで区切ることで、非連続な複数のセルを一度に選択することも可能です。
しかし、この最後の方法には一つ大きな課題があります。それは、「選択したいセルのアドレスが事前に確定している必要がある」という点です。もし、選択したいセルが「シート上のどこかに散らばっていて、その場所は実行時に特定の条件を満たしたときに初めてわかる」という場合、`Range(“A1,C3,E5”)` のように文字列でアドレスを構築していくのは非常に手間がかかり、動的な条件変更にも対応しづらいという問題があります。
ここで登場するのが、今回ご紹介する`Union`メソッドです。
Rangeプロパティの基本をおさらい
`Range`プロパティは、VBAでセルやセル範囲を扱う上で最も基本的なオブジェクトです。まずは、その基本的な使い方を簡単におさらいしましょう。
* **単一セルの指定**
Range(“A1”).Select ‘ A1セルを選択
Cells(1, 1).Select ‘ 同様にA1セルを選択 (行番号, 列番号)
* **連続した範囲の指定**
Range(“A1:B5”).Select ‘ A1からB5までの範囲を選択
Range(Cells(1, 1), Cells(5, 2)).Select ‘ 同様にA1からB5までの範囲を選択
* **非連続な複数のセルの指定（静的な場合）**
Range(“A1,C3,E5”).Select ‘ A1, C3, E5の3つのセルを選択
このように、`Range`プロパティは非常に強力ですが、動的に条件に一致するセルを「見つけては追加」していくような場面では、文字列操作で `”A1,C3,E5″` のようなアドレス文字列を組み立てるのは現実的ではありません。そこで、VBAのオブジェクト指向の真価が発揮される`Union`メソッドの出番となります。
Unionメソッドの真髄：複数のRangeオブジェクトを結合する
`Union`メソッドは、複数の`Range`オブジェクトを結合し、それらを一つの`Range`オブジェクトとして扱うための非常に便利なメソッドです。これにより、動的に見つかったセルを順次追加していき、最終的に一つのまとまった非連続範囲として操作することが可能になります。
`Union`メソッドの基本的な構文は以下の通りです。
`Set 結合されたRangeオブジェクト = Union(Rangeオブジェクト1, Rangeオブジェクト2, …)`
例えば、`A1`セルと`C3`セルを結合して一つの`Range`オブジェクトとして扱いたい場合、次のように記述します。
Dim myRange As Range
Set myRange = Union(Range(“A1”), Range(“C3”))
myRange.Select ‘ A1とC3が同時に選択される
この例だけを見ると、`Range(“A1,C3”).Select` と何が違うの？と思われるかもしれません。違いは、`Union`メソッドが「既存の`Range`オブジェクト」を引数に取る点にあります。この特性が、ループ処理の中で真価を発揮するのです。
条件に一致するセルを選択するアプローチ
条件に一致する複数のセルを選択する一般的な手順は以下のようになります。
1. **検索対象範囲を設定する**: どの範囲からセルを探すのかを明確にします。
2. **ループ処理で各セルを評価する**: 設定した検索範囲内のすべてのセルを一つずつチェックします。
3. **条件分岐で一致セルを特定する**: 各セルが特定の条件を満たしているかを`If`ステートメントなどで判断します。
4. **一致セルを`Union`メソッドで結合する**: 条件に一致したセルを、あらかじめ用意しておいた`Range`オブジェクト変数に`Union`メソッドを使って順次追加していきます。
5. **最終的な`Range`オブジェクトを操作する**: ループが終了した後、結合された`Range`オブジェクトに対して、選択、書式設定、値の変更などの操作を行います。
この手順を具体的なコードで見ていきましょう。
実装例1: 特定の値を持つセルを選択する
ここでは、シート上のA列に「ステータス」があり、「完了」という文字列を持つセルだけをすべて選択するシナリオを考えます。
Sub SelectCompletedCells()
Dim ws As Worksheet
Dim targetRange As Range ‘ 結合されたRangeオブジェクトを格納する変数
Dim cell As Range ‘ ループで一つずつ取り出すセル
Dim searchRange As Range ‘ 検索対象となる範囲
‘ 1. 対象シートと検索範囲を設定
Set ws = ThisWorkbook.Sheets(“Sheet1”) ‘ 対象シートを指定
Set searchRange = ws.Range(“A:A”) ‘ 検索対象範囲をA列全体に設定
‘ 2. 検索範囲の各セルをループ
For Each cell In searchRange
‘ 3. セルの値が「完了」と一致するかをチェック
‘ ※空のセルを除外するため、Len(cell.Value) > 0 も追加するとより良い
If Len(cell.Value) > 0 And cell.Value = “完了” Then
‘ 4. 初めて条件に合致したセルが見つかった場合
If targetRange Is Nothing Then
Set targetRange = cell
Else
‘ 2回目以降はUnionメソッドで既存のtargetRangeに追加
Set targetRange = Union(targetRange, cell)
End If
End If
Next cell
‘ 5. もし条件に合致するセルが見つかっていれば選択
If Not targetRange Is Nothing Then
targetRange.Select
MsgBox “「完了」のセルをすべて選択しました。”, vbInformation
Else
MsgBox “「完了」のセルは見つかりませんでした。”, vbInformation
End If
End Sub
**コード解説:**
* `Dim targetRange As Range`: ここがポイントです。`targetRange`は、条件に合致したセルを「蓄積」していくための変数です。初期状態では`Nothing`（何も参照していない状態）です。
* `For Each cell In searchRange`: `searchRange`（この場合はA列全体）の各セルを`cell`変数に一つずつ取り出してループ処理を行います。
* `If targetRange Is Nothing Then`: 初めて条件に合致するセルが見つかった場合、`targetRange`はまだ`Nothing`なので、その`cell`を`targetRange`にセットします。これが、`Union`メソッドで結合を始める最初の`Range`オブジェクトとなります。
* `Else Set targetRange = Union(targetRange, cell)`: 2回目以降に条件に合致するセルが見つかった場合、すでに`targetRange`には一つ以上のセルがセットされています。そこで、`Union`メソッドを使って、既存の`targetRange`に新しく見つかった`cell`を追加（結合）します。
* `If Not targetRange Is Nothing Then targetRange.Select`: ループが終了した後、もし`targetRange`が`Nothing`でなければ（つまり、一つでも条件に合致するセルが見つかっていれば）、その`targetRange`を選択します。この`Not Nothing`のチェックは非常に重要で、もし条件に合致するセルが一つも見つからなかった場合に`targetRange.Select`を実行しようとすると、「オブジェクト変数またはWithブロック変数が設定されていません。」という実行時エラー（エラー番号91）が発生してしまいます。
実装例2: 複数の条件を満たすセルを選択する
今度は、複数の条件を組み合わせてセルを選択してみましょう。例えば、「ステータスが「完了」であり、かつ「優先度」が「高」であるタスクのセル」を選択するケースです。仮に、A列がステータス、B列が優先度であるとします。
Sub SelectHighPriorityCompletedCells()
Dim ws As Worksheet
Dim targetRange As Range
Dim rowNum As Long ‘ 行番号をループするための変数
Dim lastRow As Long ‘ データがある最終行
Set ws = ThisWorkbook.Sheets(“Sheet1”)
‘ データがある最終行を取得（A列を基準）
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 2行目から最終行までをループ（1行目は見出しと仮定）
For rowNum = 2 To lastRow
‘ A列のセルをstatusCell、B列のセルをpriorityCellとして参照
Dim statusCell As Range
Dim priorityCell As Range
Set statusCell = ws.Cells(rowNum, “A”)
Set priorityCell = ws.Cells(rowNum, “B”)
‘ 複数の条件をAnd演算子で結合
If statusCell.Value = “完了” And priorityCell.Value = “高” Then
‘ 条件に合致した行のA列のセル（statusCell）を対象とする
If targetRange Is Nothing Then
Set targetRange = statusCell
Else
Set targetRange = Union(targetRange, statusCell)
End If
End If
Next rowNum
If Not targetRange Is Nothing Then
targetRange.Select
MsgBox “「完了」かつ「優先度高」のセルをすべて選択しました。”, vbInformation
Else
MsgBox “条件に合致するセルは見つかりませんでした。”, vbInformation
End If
End Sub
この例では、`For Each`ループではなく、`For…Next`ループで`rowNum`を回し、各行で複数の列の値を参照しています。条件分岐に`And`演算子を使うことで
