Определение блока ячеек, состоящего из объединения двух и более диапазонов, с помощью метода Application.Union из кода VBA Excel. Примеры объединения.
Содержание
Описание
Application.Union – это метод VBA Excel, который возвращает объект Range, являющийся объединением двух или более указанных диапазонов.
Синтаксис
|
1 |
Application.Union (Arg1, Arg2, Arg3, ..., Arg30) |
- Arg1, Arg2 – обязательные аргументы, представляющие из себя диапазоны ячеек (объекты Range).
- Arg3, …, Arg30* – необязательные аргументы, представляющие из себя диапазоны ячеек (объекты Range).
* Допустимо использование до 30 аргументов включительно.
Примеры
Пример 1
Объединение диапазонов, занимающих прямоугольную область:
|
1 2 3 4 5 6 7 8 |
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
Объединение несмежных диапазонов:
|
1 2 3 4 5 6 7 8 |
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
Объединение пересекающихся диапазонов:
|
1 2 3 4 5 6 7 8 |
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 по тематическим разделам со ссылками на все статьи.