複数の選択範囲をまとめて処理を行う【Unionメソッド】【ExcelVBA】

Unionメソッド
複数の範囲をまとめて塗りつぶすサンプルコード
注意点
関連記事

Unionメソッド

Unionメソッドは複数のセルやセル範囲をまとめて操作する機能です。
2つ以上の選択範囲で一度に同じ処理を行うことができます。
同時に処理ができるのは最大30個までです。

構文
Union (Arg1, Arg2, Arg3, … Arg30)

Arg1	セル範囲です。少なくとも2つの Range オブジェクトを指定してください。必須。
Arg2	セル範囲です。複数の Range オブジェクトを指定してください。必須。
Arg3 – Arg30	セル範囲です。Arg30まで追加可能です。オプション。

複数の範囲をまとめて塗りつぶすサンプルコード

'■Unionメソッドのサンプル
Public Sub Sample()
    Dim i As Long
    Dim rng As Range

    Set rng = Cells(2, 2)  '起点をセルB2に指定する
    
    'B,D,F列の2～10行目まで繰り返す
    For i = 2 To 10
        Set rng = Union(rng, Cells(i, 2), Cells(i, 4), Cells(i, 6))
    Next i
    
    'セルを赤色で塗りつぶす
    rng.Interior.Color = RGB(255, 0, 0)
End Sub