excel vba比较2列并列出不匹配的结果

Sub CompareColumns()
    Dim ws As Worksheet
    Dim range1 As Range, range2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim mismatchRange As Range
    
    ' 设置工作表和要比较的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set range1 = ws.Range("A1:A10") ' 第一列的范围
    Set range2 = ws.Range("B1:B10") ' 第二列的范围
    
    ' 遍历第一列的每个单元格
    For Each cell1 In range1
        ' 假设第二列的单元格与第一列的单元格一一对应
        Set cell2 = range2.Cells(cell1.Row, 1)
        
        ' 比较两个单元格的值
        If cell1.Value <> cell2.Value Then
            ' 如果不匹配，则将不匹配的单元格添加到不匹配范围
            If mismatchRange Is Nothing Then
                Set mismatchRange = cell1
            Else
                Set mismatchRange = Union(mismatchRange, cell1)
            End If
        End If
    Next cell1
    
    ' 将不匹配的结果输出到新的列
    If Not mismatchRange Is Nothing Then
        mismatchRange.Offset(0, 2).Value = "不匹配"
    End If
End Sub