２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

サイト管理人

9年前

Union メソッド

Union メソッドは、２つ以上のセル範囲を１つにまとめて参照します。まとめたセルに名前をつけて扱うことも可能です。
戻り値は、セル範囲を表す Range オブジェクトです。

【書式】

Object.Union ( arg1, arg2 [, arg3, … , arg30 ] )

【項目の説明】

object ・・・ Application オブジェクト
arg1,arg2, … arg30 ・・・セル範囲を表すRange オブジェクトで最大３０まで指定できます。
（ arg1, arg2 は省略不可。arg3 … arg30 は省略可）。

Union メソッドで、まとめることのできるセル範囲は、同一シート上のセル範囲のみです。

Union メソッドの使用例

サンプルVBAソース

　
Sub Sample_Union()

    Dim myUnion
    
    'まとめたセル範囲に名前を付ける
    Set myUnion = Union(Range("A2:A16"), Range("A3:E8"))
    
    '選択
    myUnion.Select
    
    'まとめた範囲のセル数を表示
    MsgBox Application.Union(Cells(1, 1), Cells(3, 3), Range("c1:F1")).Count

End Sub

Sub Sample_Union()

Dim myUnion

'まとめたセル範囲に名前を付ける

Set myUnion = Union(Range("A2:A16"), Range("A3:E8"))

'選択

myUnion.Select

'まとめた範囲のセル数を表示

MsgBox Application.Union(Cells(1, 1), Cells(3, 3), Range("c1:F1")).Count

End Sub

Union メソッド

【項目の説明】

Union メソッドの使用例

サンプルVBAソース

実行結果