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)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Arg1	必需	区域	重叠的区域。 必须至少指定两个 Range 对象。
Arg2	必需	区域	重叠的区域。 必须至少指定两个 Range 对象。
Arg3–Arg30	可选	Variant	相交范围。

返回值

Range

示例

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

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。