单元格值_VBA代码、获取单元格区域相交的值

下面是代码分享

Sub 交集()

Dim sr As Range, sr2 As Range 申明数据类型变量

Dim ch As Range, ch2 As Range

For Each sr In Range("a2:a9") 循环区域单元格

If sr.Value = "刘能" Then 条件判断

Set ch = sr.EntireRow 把单元格对象赋给变量

Exit For 退出循环

End If 结束条件判断

Next 条件达到退出循环

For Each sr2 In Range("b1:g1") 循环区域单元格

If sr2.Value = "3月" Then 条件判断

Set ch2 = sr2.EntireColumn 把单元格对象赋给变量

Exit For 退出循环

End If 结束条件判断

Next 条件完成退出循环

Intersect(ch, ch2).Select 选择两个相交单元格区域

End Sub