Метод Application.Intersect (Excel)

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

Синтаксис

выражение. Пересечение (Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22,Arg23, Arg24, Arg25, Arg26, Arg27, arg28, arg29, arg30)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Арг1	Обязательный	Range	Пересекающиеся диапазоны. Необходимо указать как минимум два объекта Range .
Арг2	Обязательный	Range	Пересекающиеся диапазоны. Необходимо указать как минимум два объекта Range .
Arg3–Arg30	Необязательный	Variant	Пересекающийся диапазон.

Возвращаемое значение

Диапазон

Пример

В следующем примере выбирается пересечение двух именованных диапазонов, rg1 и rg2, на листе Лист1. Если диапазоны не пересекаются, в примере отображается сообщение.

Worksheets("Sheet1").Activate 
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
 MsgBox "Ranges don't intersect" 
Else 
 isect.Select 
End If

В следующем примере сравниваются свойства Worksheet.Range , метода Application.Union и метода Intersect .

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                           'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                      'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.