如何在 vba 中使用相交（附示例）

您可以使用 VBA 中的Intersect方法返回表示两个特定范围交集的范围。

以下是在实践中使用此方法的常见方法：

 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：如何计算工作簿中的工作表数量