VBA Intersect

在Visual Basic for Applications (VBA) 中，`Intersect` 函数用于查找两个集合（如工作表的范围、数组或列表）之间的交集。它返回满足给定条件的第一个元素集合。

例如，如果你想找出A1:B10区域和C5:D20区域的共同部分，可以这样做：

Dim range1 As Range
Set range1 = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")

Dim range2 As Range
Set range2 = ThisWorkbook.Worksheets("Sheet1").Range("C5:D20")

Dim intersectRange As Range
Set intersectRange = Application.Intersect(range1, range2)

If Not intersectRange Is Nothing Then
    ' 没有交集时，intersectRange将为Nothing，这里可以打印交集的范围
    MsgBox intersectRange.Address
Else
    MsgBox "No intersection."
End If

`Intersect`函数会检查两个范围是否部分重叠，如果有，它会返回这个交集；如果没有，则返回`Nothing`。