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	交集的範圍。 必須至少指定兩個 Range 物件。
Arg2	必要	Range	交集的範圍。 必須至少指定兩個 Range 物件。
引數 3–引數 30	選用	Variant	相交範圍。

傳回值

範圍

範例

下列範例會選取 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 支援與意見反應。