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

在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

上述代码中，我们假设要比较的两个表格分别位于名为"Sheet1"和"Sheet2"的工作表中的A列，范围为A1:A10。代码会遍历表1的每个单元格，然后在表2中查找是否存在相同的值。如果找到匹配值，则将其写入表1的B列，如果没有找到匹配值，则将其写入表1的C列。

请注意，上述代码只是一个简单的示例，实际应用中可能需要根据具体需求进行修改和优化。

关于VBA的更多信息和学习资源，您可以参考腾讯云的VBA开发文档：VBA开发文档。