比较2个表值并返回匹配值和无匹配值vba

Sub CompareTables()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    Dim matchFound As Boolean
    
    ' 设置要比较的两个表格所在的工作表和范围
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set rng1 = ws1.Range("A1:A10") ' 表1的范围
    Set rng2 = ws2.Range("A1:A10") ' 表2的范围
    
    ' 遍历表1的每个单元格
    For Each cell1 In rng1
        matchFound = False ' 初始化匹配标志
        
        ' 遍历表2的每个单元格
        For Each cell2 In rng2
            ' 比较两个单元格的值
            If cell1.Value = cell2.Value Then
                ' 如果找到匹配值，则将匹配标志设置为True，并退出内层循环
                matchFound = True
                Exit For
            End If
        Next cell2
        
        ' 根据匹配标志判断是匹配值还是无匹配值，并进行相应的处理
        If matchFound Then
            ' 匹配值的处理
            ws1.Range("B" & cell1.Row).Value = cell1.Value
        Else
            ' 无匹配值的处理
            ws1.Range("C" & cell1.Row).Value = cell1.Value
        End If
    Next cell1
End Sub