VBA Excel. Метод Application.Union (объединение диапазонов)

Определение блока ячеек, состоящего из объединения двух и более диапазонов, с помощью метода Application.Union из кода VBA Excel. Примеры объединения.

Содержание

1. Описание

2. Синтаксис

3. Примеры

Описание

Application.Union – это метод VBA Excel, который возвращает объект Range, являющийся объединением двух или более указанных диапазонов.

Синтаксис

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

Arg1, Arg2 – обязательные аргументы, представляющие из себя диапазоны ячеек (объекты Range).
Arg3, …, Arg30* – необязательные аргументы, представляющие из себя диапазоны ячеек (объекты Range).

* Допустимо использование до 30 аргументов включительно.

Примеры

Пример 1
Объединение диапазонов, занимающих прямоугольную область:

Sub Primer1()

Dim rngun As Range, arg1 As Range, arg2 As Range, arg3 As Range

Set arg1 = Range("B2:D6")

Set arg2 = Range("D2:F6")

Set arg3 = Range("B5:F9")

Set rngun = Application.Union(arg1, arg2, arg3)

MsgBox "Адрес объединенного диапазона: " & rngun.Address

End Sub

Объединение диапазонов, занимающих прямоугольную область

Пример 2
Объединение несмежных диапазонов:

Sub Primer2()

Dim rngun As Range, arg1 As Range, arg2 As Range, arg3 As Range

Set arg1 = Range("B2:C4")

Set arg2 = Range("E2:F5")

Set arg3 = Range("C7:E9")

Set rngun = Application.Union(arg1, arg2, arg3)

MsgBox "Адрес объединенного диапазона: " & rngun.Address

End Sub

Объединение несмежных диапазонов

Пример 3
Объединение пересекающихся диапазонов:

Sub Primer3()

Dim rngun As Range, arg1 As Range, arg2 As Range, arg3 As Range

Set arg1 = Range("B2:E5")

Set arg2 = Range("C3:F9")

Set arg3 = Range("D4:D10")

Set rngun = Application.Union(arg1, arg2, arg3)

MsgBox "Адрес объединенного диапазона: " & rngun.Address

End Sub

Объединение пересекающихся диапазонов

Самый наглядный вариант объединения ячеек рассмотрен в первом примере, когда объединяемые диапазоны образуют одну прямоугольную область. Во втором и третьем примерах результат объединения аналогичен использованию свойства Range объекта Worksheet:

1	Set rngun = Range(arg1.Address & ", " & arg2.Address & ", " & arg3.Address)

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.