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

最終更新日：2019-07-23

第103回.Unionメソッド

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

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

Unionメソッド

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

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

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

Application.は省略可能です。
Arg1とArg2は必須です、Arg3以降はオプションになります。

Unionメソッドの使用例


  
    
      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メソッドの実践例

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

ジャンプ機能がありますがそれでは選択できないような場合です。ある文字を含むセルやある関数を含むセルを一括で選択状態にします。何に使うかは…ご自由に！InputBox("対象ブック："_ActiveWorkbook.Name_vbLf_ _"対象シート："_ActiveWorkbook.ActiveSheet.Name_vbLf_ vbLf__"計算式の場…

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

vbafindでの検索が極めて多く、Findメソッドは検索からの流入ではトップクラスです、アクセス解析で分かった事ですが正直少し戸惑っています。なぜなら私はFindメソッドをほとんど使いません、Match関数や配列を使って処理したほうが高速かつ確実に動作するからです。

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