Intersect 方法

返回一个 Range 对象，此对象代表两个或多个范围重叠的矩形区域。

expression   可选。该表达式返回一个 Application 对象。

Arg1, Arg2, ...   Range 类型，必需。重叠的区域。必须指定至少两个 Range 对象。

示例

本示例在 Sheet1 中选定两个命名区域 rg1 和 rg2 的重叠区域。如果所选区域不重叠，本示例将显示一条相应的信息。

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