Wie vergleicht man zwei Spalten und hebt die nicht übereinstimmenden Daten in Excel hervor?

Wie im folgenden Screenshot gezeigt, können Sie für den Vergleich von zwei Spalten benachbarter Zellen und das Hervorheben der nicht übereinstimmenden Daten die Methoden im Artikel ausprobieren.

Zwei Spalten vergleichen und nicht übereinstimmende Daten mit VBA-Code hervorheben
Zwei Spalten vergleichen und nicht übereinstimmende Daten mit Kutools für Excel hervorheben

Zwei Spalten vergleichen und nicht übereinstimmende Daten mit VBA-Code hervorheben

Wie im obigen Screenshot zu sehen, vergleichen Sie die Daten in Spalte A und Spalte B. Bitte führen Sie den folgenden VBA-Code aus, um die nicht übereinstimmenden Daten hervorzuheben.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Zwei Spalten vergleichen und nicht übereinstimmende Daten hervorheben

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. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld von Kutools für Excel die erste zu vergleichende Spalte aus und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot.

4. Wählen Sie dann die zweite zu vergleichende Spalte im nächsten erscheinenden Dialogfeld von Kutools für Excel aus.

5. Klicken Sie im Dialogfeld wie im folgenden Screenshot gezeigt auf die Schaltfläche Nein, um die nicht übereinstimmenden Daten hervorzuheben.

Dann werden alle nicht übereinstimmenden Daten zwischen den beiden Spalten sofort hervorgehoben. Siehe Screenshot:

Zwei Spalten vergleichen und nicht übereinstimmende Daten mit Kutools für Excel hervorheben

Wenn Sie nur herausfinden und hervorheben möchten, ob die Zellenwerte in einer Spalte in einer anderen Spalte vorhanden sind oder nicht, zum Beispiel wie im folgenden Screenshot gezeigt, existiert die Zahl 2 in Spalte A nicht in Spalte B. Sie können das Hilfsprogramm „Bereiche vergleichen“ von Kutools für Excel ausprobieren.

1. Klicken Sie auf Kutools > Einfügen > Gleiche und unterschiedliche Zellen auswählen. Siehe Screenshot:

2. Konfigurieren Sie im Dialogfeld „Gleiche und unterschiedliche Zellen auswählen“ wie folgt:

3. Dann erscheint ein Dialogfeld, das Ihnen mitteilt, wie viele Zellen nur in Spalte A, aber nicht in Spalte B enthalten sind. Klicken Sie auf die Schaltfläche OK, und alle übereinstimmenden Zellen werden in Spalte A ausgewählt.

Verwandte Artikel:

• Wie vergleicht man zwei Zeichenfolgen auf Ähnlichkeit oder hebt Unterschiede in Excel hervor?
• Wie vergleicht man zwei Zeichenfolgen genau (Groß-/Kleinschreibung beachten) in Excel?