16、[VBA入门到放弃笔记] Intersect方法

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结果。

  
  
  

---