VBA Union関数の使い方徹底解説！複数セル範囲を効率的に操作する方法

「Excel VBAで複数のセル範囲を一度に選択したいけど、どうやってやるんだろう？」
このような悩みを持ったことはありませんか？

・複数のセル範囲を一括で操作したいけど、
　毎回それぞれの範囲を指定するのは面倒！

・セルの範囲が非連続だけど、
　一気に処理できる方法があれば便利なのに…

その場合は、VBAの「Union関数」を
使用すると解決します！

そんな場合、VBAの「Union関数」を使うと問題が解決します！

Union関数を使うことで、離れたセル範囲を1つにまとめて操作することが可能になります。
例えば、シート上でバラバラに配置された範囲を一度に選択したり、同じ値を一気に入力したり、グラフのデータ範囲やフォーマットを変更したりできます。

この記事では、VBAの「Union関数」の基本的な使い方や実践例を紹介します。
初心者でもすぐに使えるコピペ可能なコードも用意していますので、ぜひ最後までご覧ください！

【　この記事の概要　】

この記事でできるようになること

この記事を読むと、次のことができるようになります。

VBAのUnion関数の基本を解説

VBAのUnion関数は、複数のセル範囲を1つにまとめて操作できる便利な機能です。

この関数を使うことで、離れた場所にある複数のセルやセル範囲を一括して選択し、さまざまな操作を行うことができます。

例えば、Excelシートでバラバラに配置されたセル範囲に対して、データを一度に入力したり、同じフォーマットを適用したい場合があります。
通常であれば、それぞれの範囲を個別に指定して処理しなければなりませんが、Union関数を使うとこれらを1つの操作でまとめて処理することができます。

Union関数の基本構文

より詳しい情報は、Microsoft公式のApplication.Union メソッド (Excel)を参照してください。

Union関数の使用例

例えば、離れたセル範囲「A1からB2」と「D3からE4」を一度に操作したい場合、以下のように記述します。

Rangeを使用した例

Set rng = Union(Range("A1:B2"), Range("D3:E4"))

このように、Rangeプロパティを使って特定の範囲を指定し、Union関数でまとめて操作できます。

Cellsを使用した例

Set rng = Union(Cells(1, 1), Cells(3, 4))

Cellsプロパティを使うと、行番号と列番号でセルを指定することができ、複数のセルをUnionでまとめて操作可能です。

このように、離れたセル範囲をUnion関数でまとめて処理することができ、操作効率が格段に向上します。

Union関数は、Excelのシートを横断して、複数の範囲に一括で操作を行いたい場合に非常に有効です。

VBAのUnion関数がよく使用される場面

VBAのUnion関数は、複数のセル範囲を1つにまとめて操作するため、非連続なセル範囲に対して一括処理を行いたい場面で非常に便利です。

以下のようなシチュエーションで、よく利用されています。

⇒ 実際のコードについては、「VBAのUnion関数を使った使用例をご紹介」の項を参照ください。

VBAのUnion関数の注意ポイント

Union関数は非常に便利ですが、いくつか注意点があります。

範囲の重複に注意

Union関数を使う際、指定する範囲が重複するとエラーが発生します。

例えば、同じセル範囲を2度指定すると、VBAはそれを処理できません。

Sub UnionWithOverlap()
    Dim rng As Range
    '// 以下のコードはエラーになります
    Set rng = Union(Range("A1:A3"), Range("A2:A4"))
    rng.Select
End Sub

このようなエラーを防ぐため、範囲を指定する際は重複しないように気をつけましょう。

セル範囲が大きすぎると処理が遅くなる

Union関数で非常に大きなセル範囲を扱うと、処理速度が遅くなることがあります。

特に大規模なデータを扱う場合は、範囲のサイズに注意し、適切に範囲を分割することが重要です。

【応用】Union関数と最終行を組み合わせてデータ範囲を動的に操作する方法 (グラフで解説)

VBAのUnion関数は、離れたセル範囲を1つにまとめて操作できる便利な機能です。
特に、グラフを作成する際には、このUnion関数を使うと、複数の範囲をまとめて効率的に扱えるため、とても役立ちます。

さらに、End(xlUp)を使ってデータの最終行を自動で取得すれば、新しいデータが追加されても、毎回手動で範囲を変更する必要がありません。
この方法を使うことで、範囲が自動的に更新され、データが増えても正確に反映されるグラフを簡単に作成できます。

最終行を自動取得してグラフのデータ範囲を動的に設定する

以下のコードでは、データの最終行を取得し、複数の範囲をUnion関数でまとめ、グラフのデータ範囲として設定しています。

コード例

Sub CreateDynamicGraph()
    Dim rng As Range
    Dim LastRow As Long
    Dim chartObj As ChartObject

    '// 最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '// 複数範囲をUnion関数でまとめる
    Set rng = Union(Range("A1:A" & LastRow), Range("B1:B" & LastRow), Range("C1:C" & LastRow))

    '// グラフを作成
    Set chartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=300, Top:=50, Height:=200)
    chartObj.Chart.SetSourceData Source:=rng
End Sub

処理結果

この方法が有効な理由

この方法は、VBAでUnion関数を使って複数の範囲を動的に指定し、グラフのデータ範囲を効率的に管理するのに非常に有効です。

特に、大規模なデータや頻繁に更新されるデータに対してグラフを作成するシーンでは、最終行の自動取得とUnion関数の組み合わせが大きなメリットをもたらします。

VBAのUnion関数を使った使用例をご紹介

ここからは、VBAのUnion関数の具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

【 Udemy 】VBAのオススメ講座

​

使用例1: データの一括入力

複数のセル範囲に対して同じデータを一括で入力する方法を紹介します。

この操作は、表の一部に同じデータを入力したり、チェックボックスの結果を一度に書き込む際に便利です。

主な使用用途
離れたセル範囲に対して同じデータ（例:「合格」など）を一度に入力したい場合に便利です。

コード例 | データの一括入力

Sub InputDataToMultipleRanges()
    Dim rng As Range
    Set rng = Union(Range("A1:A5"), Range("C1:C5"))

    rng.Value = "合格"
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)

1行ずつコードを解説

総括・ポイント

このコードでは、VBAのUnion関数を使って、離れた複数のセル範囲を1つにまとめ、一括でデータを入力しています。

Rangeで特定のセル範囲を指定し、Unionでこれらをまとめて操作できる点がポイントです。
Setを使って、まとめた範囲をオブジェクト変数「rng」という変数に格納し、簡単に値を一度に入力可能です。

この手法により、離れたセル範囲に対する作業を効率化でき、コードが短く、シンプルに保てます。

使用例2: 複数範囲の書式設定

複数のセル範囲に対して同じフォーマット（背景色、フォント色など）を一括で設定する方法を紹介します。

離れた場所にあるセル範囲に対しても、Union関数を使うことで、1回の操作で同じ書式を適用できるため、手間が大幅に省けます。

主な使用用途
離れたセル範囲に同じフォーマット（例: フォント色、背景色）を一括で適用したい場合に便利です。

コード例 | 複数範囲の書式設定

Sub FormatMultipleRanges()
    Dim rng As Range
    Set rng = Union(Range("B2:B5"), Range("D2:D5"))

    rng.Font.Color = vbRed
    rng.Interior.Color = vbYellow
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• Font.Color (文字の色を変更)
• Interior.Color (セルの色を変更)

1行ずつコードを解説

総括・ポイント

このコードでは、VBAのUnion関数を使って離れたセル範囲を1つにまとめ、フォント色と背景色を一括で設定しています。

Unionを使うことで、複数の離れた範囲に同時にフォーマットを適用でき、効率的に操作できます。

Font.ColorとInterior.Colorプロパティを使い、文字の色と背景色をそれぞれ指定します。
Unionでまとめた範囲を1つの変数に格納することで、同じ操作を繰り返し行う手間を省けます。

使用例3: VBAでグラフのデータ範囲を自動設定する方法

VBAを使って、シート上のデータを元にグラフを自動作成し、データ範囲を動的に設定する方法を紹介します。
このコードでは、データの最終行を自動的に取得し、離れたセル範囲をまとめてグラフに反映させることができます。

主な使用用途
データの最終行が変わるたびに、グラフのデータ範囲を動的に変更したい場合に便利です。
特に、定期的にデータが追加されるExcelシートで、手動でグラフの範囲を調整する必要があるシーンで役立ちます。

コード例 | VBAでグラフのデータ範囲を動的に設定

Sub SetGraphData()
    Dim rng As Range
    Dim LastRow As Long

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Set rng = Union(Range("A1:A" & LastRow), Range("B1:B" & LastRow), _
        Range("C1:C" & LastRow))

    ActiveSheet.ChartObjects(1).Chart.SetSourceData Source:=rng
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• LastRow (最終行を取得)
• ChartObjects (グラフを作成)

1行ずつコードを解説

総括・ポイント

このコードでは、VBAを使って動的に最終行を取得し、複数の列のデータをグラフに反映しています。

データが増えるたびにグラフの範囲を手動で変更するのは手間がかかりますが、VBAのUnion関数と最終行の自動取得を組み合わせることで、範囲を動的に調整可能です。

使用例4: 複数範囲のデータを一括削除する方法

この使用例では、VBAのUnion関数を使って、離れたセル範囲のデータを一括で削除する方法を紹介します。
複数のセル範囲に対して、一度にデータをクリア（削除）したい場合に、Union関数を使って効率的に処理を行うことができます。

主な使用用途
Excelシート上で、複数の範囲にあるデータを同時に削除したい場合に便利です。
例えば、異なる場所にあるデータをまとめて削除したいシーンで役立ちます。

コード例 | 複数範囲のデータを一括削除

Sub ClearDataInMultipleRanges()
    Dim rng As Range
    Dim LastRow As Long

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Set rng = Union(Range("A1:A" & LastRow), Range("C1:C" & LastRow), _
        Range("E1:E" & LastRow))
    rng.ClearContents
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• LastRow (最終行を取得)
• ClearContents (セルのデータをクリア)

1行ずつコードを解説

総括・ポイント

このコードでは、VBAのUnion関数と最終行の自動取得を組み合わせて、離れた複数の範囲を一括でクリアしています。

VBAでのデータクリア処理を効率化し、異なる場所にあるデータを一度に削除できるため、手作業を減らすことができます。
ClearContentsメソッドを使用することで、セルの書式は保持しつつ、データのみを削除できる点も便利です。
定期的に更新するデータの管理やクリア作業を自動化することで、ミスを防ぎ、業務効率が向上します。

使用例5: 条件に応じて複数のセル範囲を一括で修正する方法

この使用例では、VBAのUnion関数を使用して、複数の離れたセル範囲に対して条件付きの操作を一括で行う方法を紹介します。
特定の条件に基づいて、セルの内容を一括で修正したい場合に役立ちます。

主な使用用途
複数のセル範囲に対して一括でデータをチェックし、条件に合致する場合に修正を行うシーンに便利です。
たとえば、空白セルを検出し、デフォルトの値を挿入する場合などです。

コード例 | 条件に応じて複数範囲を一括修正

Sub CheckAndFillEmptyCells()
    Dim rng As Range
    Dim cell As Range
    Dim LastRow As Long

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Set rng = Union(Range("A1:A" & LastRow), Range("C1:C" & LastRow), _
        Range("E1:E" & LastRow))

    For Each cell In rng
        If IsEmpty(cell.Value) Then
            cell.Value = "N/A"
        End If
    Next cell
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• LastRow (最終行を取得)
• ClearContents (セルのデータをクリア)

1行ずつコードを解説

総括・ポイント

このコードでは、Union関数を使って複数の範囲をまとめ、空白セルにデフォルト値を一括挿入する方法を紹介しています。

データの最終行を動的に取得し、離れたセル範囲を効率的に操作するため、特定の条件（空白セル）に対する処理が簡単になります。

For EachループとIsEmpty関数を組み合わせることで、各セルを個別に確認しながら条件に応じた処理を行うことが可能です。
Union関数を使用することで、離れた範囲でも1つの処理として扱えるため、手作業を減らし、ミスのリスクを軽減します。

この記事のまとめ

この記事では、VBAのUnion関数を使って、離れた複数のセル範囲を一度に操作する方法を解説しました。

Union関数を使うことで、セル範囲の選択やフォーマット変更、データ入力が効率的に行えるため、手作業を減らしミスも防げます。

ポイントのおさらい

さらに学ぶために

Excel VBAのClearメソッドとその関連メソッドの基本を学んだ後は、他のVBAの機能についても理解を深めることで、より高度な操作が可能になります。

Clearメソッド以外にも、Excel VBAで役立つテクニックがたくさんあります。
以下のリンクから、他の記事やガイドラインを参照し、さらなる知識を得ることができます。

あわせて読みたい

サイトマップ VBAOfficeスクリプトワークシート関数 VBA 基本設定 VBAとは？ VBAの始め方 VBAのおすすめ設定 セル操作 RangeとCells CurrentRegion Offset Resize 最終行・最終列の取...