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）

ジャンプ機能がありますがそれでは選択できないような場合です。ある文字を含むセルやある関数を含むセルを一括で選択状態にします。何に使うかは・・・ご自由に！Subジャンプ機能()DimmyRangeAsRangeDimselRangeAsRangeDim strFindAsStringstrFind=InputBox("対象ブック："_ ActiveWorkb…

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

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