Excel VBA -检查一个区域中每个单元格的值是否在另一个区域中

Sub CheckValues()
    Dim rngA As Range
    Dim rngB As Range
    Dim cellA As Range
    Dim cellB As Range
    Dim found As Boolean
    
    ' 设置要检查的区域
    Set rngA = Range("A1:A10")
    Set rngB = Range("B1:B5")
    
    ' 循环遍历区域A中的每个单元格
    For Each cellA In rngA
        found = False
        
        ' 循环遍历区域B中的每个单元格
        For Each cellB In rngB
            ' 检查单元格的值是否相等
            If cellA.Value = cellB.Value Then
                found = True
                Exit For
            End If
        Next cellB
        
        ' 根据是否找到匹配的值输出结果
        If found Then
            Debug.Print cellA.Address & " is found in range B."
        Else
            Debug.Print cellA.Address & " is not found in range B."
        End If
    Next cellA
End Sub