如何测试目标单元格是否在多个单元格的范围内: Excel VBA

Dim targetRange As Range
Dim multipleRange As Range

Set targetRange = Range("A1")
Set multipleRange = Range("B1:C5")

If Not Intersect(targetRange, multipleRange) Is Nothing Then
    MsgBox "目标单元格在多个单元格的范围内。"
Else
    MsgBox "目标单元格不在多个单元格的范围内。"
End If

Dim targetRange As Range
Dim multipleRange As Range
Dim count As Long

Set targetRange = Range("A1")
Set multipleRange = Range("B1:C5")

count = WorksheetFunction.CountIf(multipleRange, targetRange)

If count > 0 Then
    MsgBox "目标单元格在多个单元格的范围内。"
Else
    MsgBox "目标单元格不在多个单元格的范围内。"
End If