[Excel VBA]複数のセル範囲で重なっているセルを取得するIntersectと複数のセル範囲を取得するUnion(マクロ)

VBA(Excel)

2019.07.292024.12.20

この記事は約2分で読めます。

記事内に広告が含まれていることがあります。

こんにちは。

最近、指を怪我して手術して病みそうなあおいです。

今回はExcel VBAのメソッドであるIntersectメソッドとUnionメソッドを紹介します。

この２つのメソッド似てるようで違うものであり、

イメージとしては、IntersectがAnd条件(共通部分)でUnionメソッドがOr条件(和集合)と考えます。

Intersect ⇒ A∩B(共通部分)
Union ⇒ A∪B(和集合)

この２つのメソッドは共にRange型を返します。

まずはIntersectについて。

Excelのセル範囲とセル範囲が重なっている範囲(部分)のみRange型で取得したいときに使います。

重なり合っている部分のみ返すので、いわゆる共通部分にあたります。

Set Rng = Excel.Application.Intersect(Range("Print_Area"), UsedRange)

1	Set Rng = Excel.Application.Intersect(Range("Print_Area"), UsedRange)

例１では印刷範囲に絞った使っているセル範囲を返しています。

他にも使える例を出します。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("Print_Area")) Is Nothing Then Application.Undo

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("Print_Area")) Is Nothing Then Application.Undo

End Sub

印刷範囲以外で編集されたくない場合に使えます。

次にUnionメソッドについて説明します。

指定した複数のセル範囲をすべてRange型で取得したい場合はUnionメソッドを利用します。

すべての範囲を返すので、いわゆる和集合に当たります。

Set Rng = Excel.Application.Union(Range("A2:A5"), Range("B2:B5"))

1	Set Rng = Excel.Application.Union(Range("A2:A5"), Range("B2:B5"))

⇒結果 Rng.Address A2:B5

複数のセル範囲で同じ作業をしたい場合に使えるメソッドだと思います。

いかがだったでしょうか？

わからない部分があれば連絡ください。

今回はここまで。

ノシ

---コメント---