如何比較兩列並在Excel中突出顯示不匹配的數據？

如下截圖所示，為了比較兩列相鄰單元格並突出顯示不匹配的數據，您可以嘗試本文中的方法。

使用VBA代碼比較兩列並突出顯示不匹配的數據
使用Kutools for Excel比較兩列並突出顯示不匹配的數據

使用VBA代碼比較兩列並突出顯示不匹配的數據

如上面的截圖所示，您正在比較A列和B列中的數據。 請運行以下VBA代碼來突出顯示不匹配的數據。

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組。然後將以下代碼複製並粘貼到代碼窗口中。

VBA代碼：比較兩列並突出顯示不匹配的數據

Sub Dyeware()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵運行代碼。在彈出的 Kutools for Excel 對話框中，選擇需要比較的第一列，然後點擊 確定 按鈕。參見截圖。

4. 然後在下一個彈出的 Kutools for Excel 對話框中選擇第二個要比較的列。

5. 在如下截圖所示的對話框中，為了突出顯示不匹配的數據，請點擊 否 按鈕。

然後立即突出顯示兩列之間的所有不匹配數據。參見截圖：

使用Kutools for Excel比較兩列並突出顯示不匹配的數據

如果您只想找出並突出顯示某一列中的單元格值是否在另一列中存在，例如如下截圖所示，A列中的數字2不在B列中。您可以嘗試 Kutools for Excel 的比較區域工具。

1. 點擊 Kutools > 插入 > 選擇相同與不同單元格。參見截圖：

2. 在「選擇相同與不同單元格」對話框中，您需要進行如下配置：

3. 然後會彈出一個對話框告訴您有多少個只在A列但不在B列的單元格，點擊 確定 按鈕，並且所有匹配的單元格都會在A列中被選中。

相關文章：

• 如何在Excel中比較兩個字符串的相似性或突出顯示差異？
• 如何在Excel中精確比較兩個字符串（區分大小寫）？