Как использовать intersect в vba (с примерами)

Вы можете использовать метод Intersect в VBA, чтобы вернуть диапазон, представляющий пересечение двух определенных диапазонов.

Вот распространенный способ использования этого метода на практике:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Затем вы можете ввести эту функцию непосредственно в электронную таблицу Excel, указав два диапазона, и функция вернет каждое из значений в диапазоне, который представляет собой пересечение этих двух диапазонов.

Следующие примеры показывают, как использовать эту функцию на практике со следующим набором данных в Excel:

Пример 1. Найдите пересечение двух диапазонов (с одной ячейкой в качестве результата)

Предположим, мы хотим вернуть значение ячейки, которое представляет собой пересечение диапазонов A2:C2 и A1:A11 .

Мы можем определить следующую функцию в VBA:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Затем мы можем ввести эту функцию непосредственно в ячейку нашей электронной таблицы:

Формула возвращает значение Mavs , которое представляет собой пересечение диапазона A2:C2 и A1:A11 :

Пример 2. Найдите пересечение двух диапазонов (с несколькими ячейками в результате)

Предположим, мы хотим вернуть весь диапазон ячеек, представляющий пересечение диапазонов A1:C3 и A1:B10 .

Мы можем определить следующую функцию в VBA:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

Затем мы можем ввести эту функцию непосредственно в ячейку нашей электронной таблицы:

Формула возвращает весь прямоугольный диапазон значений, который представляет собой пересечение диапазона A1:C3 и A1:B10 :

Примечание . Полную документацию по методу VBA Intersect можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как подсчитать количество используемых столбцов
VBA: как посчитать строки в таблице
VBA: как посчитать количество листов в книге