Unionメソッド｜ExcelマクロVBA入門

最終更新日：2018-02-06

第103回.Unionメソッド

UnionメソッドはApplicationのメソッドで、

複数のセル範囲を集め、1つのRangeオブジェクとして参照することができます。

セル範囲に次々に別のセル範囲を追加して、最後にまとめて処理するような場合に便利です。

Unionメソッド

2 つ以上のセル範囲の集合をのRangeオブジェクトを返します。

Application.Union(Arg1, Arg2, Arg3, ・・・, Arg30)

Arg1	セル範囲 (Range オブジェクト) を指定します。
Arg2	セル範囲 (Range オブジェクト) を指定します。
Arg3	セル範囲 (Range オブジェクト) を指定します。
～
Arg30	セル範囲 (Range オブジェクト) を指定します。

Application.は省略可能です。

Arg1とArg2は必須です、Arg3以降はオプションになります。

使用例．

Dim MyRange As Range
For i = 2 To 10 Step 2
　　If MyRange Is Nothing Then
　　　　Set MyRange = Cells(i, 1)
　　Else
　　　　Set MyRange = Application.Union(MyRange, Cells(i, 1))
　　End If
Next i
MyRange.Value = "UNION"

２行目から１０行目までの偶数行のA列に、"UNION"と入れています。

これは、以下の処理と同じになります。

Dim i As Long
Dim strRange As String
For i = 2 To 10 Step 2
　　If strRange = "" Then
　　　　strRange = Cells(i, 1).Address
　　Else
　　　　strRange = strRange & "," & Cells(i, 1).Address
　　End If
Next i
Range(strRange).Value = "UNION"

ただし、Rangeの文字列は、255文字までなので、

それ以上になる場合は、Unionメソッドを使う必要があります。

実践例

指定文字、指定数式でジャンプ機能（Union）

VBAのFindメソッドの使い方には注意が必要です

Unionメソッドは、頻繁につかうものではありませんので、
細部については、コツ用になった時に調べれば良いでしょう。
しかし、
これを知らないと解決できないような場合もでてきますので、
どのようなメソッドなのかだけは知っておいて下さい。