如何使用VBA查找2列与2列的匹配？

Sub FindMatchingValues()
    Dim ws As Worksheet
    Dim range1 As Range, range2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim matchFound As Boolean
    
    ' 设置工作表和要查找的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set range1 = ws.Range("A1:A10") ' 第一列范围
    Set range2 = ws.Range("B1:B10") ' 第二列范围
    
    ' 遍历第一列的每个单元格
    For Each cell1 In range1
        matchFound = False ' 初始化匹配标志
        
        ' 遍历第二列的每个单元格
        For Each cell2 In range2
            ' 检查两个单元格的值是否相等
            If cell1.Value = cell2.Value Then
                matchFound = True ' 找到匹配
                Exit For ' 退出内部循环
            End If
        Next cell2
        
        ' 根据匹配结果进行处理
        If matchFound Then
            ' 执行匹配成功后的操作
            MsgBox "找到匹配值：" & cell1.Value
        Else
            ' 执行匹配失败后的操作
            MsgBox "未找到匹配值：" & cell1.Value
        End If
    Next cell1
End Sub