Application.Intersect像这样使用(在VBA中)
Sub TestIntersect()
Dim MyRange As Range
Dim TestRange As Range
Set TestRange = [$A$1:$Z$10]
Set MyRange = [P5]
If Not Application.Intersect(MyRange, TestRange) Is Nothing Then
Debug.Print "the ranges intersect"
End If
End Sub
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
1899 次 |
| 最近记录: |