Intersect方法用来表示两个或两个以上单元格区域的交集,它返回一个[Range]对象，此对象代表两个或多个范围重叠的矩形区域。
Sub 单元格区域交集()
Dim isect As Range
Set isect = Application.Intersect(Range("A1:B4"), Range("B4:D9"))
If isect Is Nothing Then
MsgBox "单元格区域没有交集"
Else
isect.Select '选中单元格区域的交集
End If
End Sub
-
代码运行结果如下图,如果没有交集，isect翻返回nothing结果。
