ExcelマクロVBA入門
第103回.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"



2行目から10行目までの偶数行の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メソッドは、頻繁につかうものではありませんので、
細部については、コツ用になった時に調べれば良いでしょう。
しかし、
これを知らないと解決できないような場合もでてきますので、
どのようなメソッドなのかだけは知っておいて下さい。



同じテーマ「マクロVBA入門」の記事

InputBoxメソッド(インプットボックス)
Midステートメント
Intersectメソッド
Unionメソッド
GetPhoneticメソッドとSetPhoneticメソッド(フリガナ)
Callステートメント
Functionプロシージャー
プロシージャーの引数
変数の適用範囲(スコープ,Private,Public)
列挙型(列挙体)Enum
ユーザー定義型(構造体)Type


新着記事NEW ・・・新着記事一覧を見る

IfステートメントとIIF関数とMax関数の速度比較|VBA技術解説(6月23日)
Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)
Shift_JISのテキストファイルをUTF-8に一括変換|VBAサンプル集(5月31日)
「VBAによる解析シリーズその2 カッコ」をやってみた|エクセル(5月21日)
VBA+SeleniumBasicで検索順位チェッカー作成|VBA技術解説(5月18日)
テーブル操作のVBAコード(ListObject)|VBA入門(5月12日)
テーブル操作の概要(ListObject)|VBA入門(5月12日)
VBAのスクレイピングを簡単楽にしてくれるSelenium|VBA技術解説(5月6日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換|エクセル基本操作
7.繰り返し処理(For Next)|ExcelマクロVBA入門
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説
10.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄


  • >
  • >
  • >
  • Unionメソッド

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。






    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ