Excel VBA Unionで複数範囲（Rangeオブジェクト）を1つの範囲に合体する方法

以下のようなシーンで利用されます。

・複数のセル範囲を一度に選択したり、フォーマットを適用する。

・複数の異なる範囲に対して同じ操作（例：値の変更、フォーマットの適用）を一度に実行する。

Option Explicit

Sub UnionExample()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim combinedRange As Range

    ' 範囲を設定
    Set rng1 = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    Set rng2 = ThisWorkbook.Sheets("Sheet1").Range("C1:C5")

    ' Union関数で範囲を合体
    Set combinedRange = Union(rng1, rng2)

    ' 合体した範囲にフォーマットを適用
    combinedRange.Font.Bold = True
End Sub

3つの異なる範囲を合体し、合体した範囲に値を設定する例

Option Explicit

Sub UnionExampleMultipleRanges()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Dim combinedRange As Range

    ' 範囲を設定
    Set rng1 = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    Set rng2 = ThisWorkbook.Sheets("Sheet1").Range("C1:C5")
    Set rng3 = ThisWorkbook.Sheets("Sheet1").Range("E1:E5")

    ' Union関数で範囲を合体
    Set combinedRange = Union(rng1, rng2, rng3)

    ' 合体した範囲に値を設定
    combinedRange.Value = "Test"
End Sub