将行中的多个值与另一行进行比较并输出不匹配的值- Excel VBA

Sub CompareRows()
    Dim ws As Worksheet
    Dim row1 As Range, row2 As Range
    Dim cell1 As Range, cell2 As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要比较的两行
    Set row1 = ws.Range("A1:D1")
    Set row2 = ws.Range("A2:D2")
    
    ' 循环比较每个单元格的值
    For Each cell1 In row1
        For Each cell2 In row2
            ' 如果值不匹配，则输出不匹配的值
            If cell1.Value <> cell2.Value Then
                Debug.Print "不匹配的值：" & cell1.Value
            End If
        Next cell2
    Next cell1
End Sub