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

16、[VBA入门到放弃笔记] Intersect方法
Intersect方法用来表示两个或两个以上单元格区域的交集,它返回一个[Range]对象，此对象代表两个或多个范...
14、[VBA入门到放弃笔记] SpecialCells方法
‘定位’对话中的操作都能够用VBA代码（SpecialCells方法）来实现。 SpecialCells方法官方文...
15、[VBA入门到放弃笔记] Union方法
Union方法是Application对象的方法，但是因为它是‘全局’的成员，因此不需要在前面写上Applicat...
13、[VBA入门到放弃笔记] Find方法
VBA中的Find方法相当于我们在工作表中的查找功能。 Find的语法是：其参数有很多,但没必要都记住，知道参数...
22、[VBA入门到放弃笔记] 函数与VBA
练习：入库单信息存储为数据表。在这个VBA过程中,使用了工作表函数CountA计算入库单据的条数,CountIf...
11、[VBA入门到放弃笔记] Currentregion属性
通过一个空行或者一个空列来分开的数据表，可以使用Currentregion属性。运行代码选择蓝色单元格区域 A1...
10、[VBA入门到放弃笔记] Resize属性
Resize属性用来扩大或者缩小单元格区域。它的左上角和原单元格区域的左上角相同，但行列数可以不同。 Resize...
29、[VBA入门到放弃笔记] 数组基础
什么是数组？在Excel里数组就是一个自由缩放的‘工作表‘，可以自定义决定大小（几行几列）。但不能只是一个单元格，...
9、[VBA入门到放弃笔记] End属性
END属性常用来构建动态的单元格范围，获取有效的数据区域。其写法是要构建一个行数不断增加的动态单元格范围，如下...
12、[VBA入门到放弃笔记] Usedrange属性
Usedrange属性并不是单元格的属性，它是工作表的属性，是返回工作表中已经使用了的单元格区域。怎么样工作表中...