Wie vergleicht man zwei Zeichenfolgen auf Ähnlichkeit oder hebt Unterschiede in Excel hervor?

In einigen Fällen möchten Sie möglicherweise nur zwei benachbarte Zellen mit Zeichenfolgen vergleichen und ihre Ähnlichkeiten oder Unterschiede in Excel markieren. Dieser Artikel bietet Ihnen zwei Methoden, um dies zu erreichen.

Zwei Zeichenfolgen mit Formel vergleichen
Zwei Zeichenfolgen auf Ähnlichkeit vergleichen oder Unterschiede mit VBA-Code hervorheben

Zwei Zeichenfolgen mit Formel vergleichen

Wie im folgenden Screenshot gezeigt, wenn Sie nur wissen möchten, ob die verglichenen Zeichenfolgen übereinstimmen oder nicht, können Sie die folgende Formel anwenden.

1. Wählen Sie eine leere Zelle C2 aus, geben Sie die Formel =EXACT(A2, B2) in die Formel-Leiste ein und drücken Sie dann die Eingabetaste. Siehe Screenshot:

Hinweis: In der Formel sind A2 und B2 die Zellen, die die zu vergleichenden Zeichenfolgen enthalten.

2. Behalten Sie die Ergebniszelle ausgewählt und ziehen Sie den Ausfüllkursor bis zu den Zellen, bis Sie alle Vergleichsergebnisse erhalten.

Das FALSE-Ergebnis bedeutet, dass die verglichenen Zeichenfolgen unterschiedlich sind, und das TRUE-Ergebnis zeigt an, dass die beiden verglichenen Zeichenfolgen übereinstimmen. Siehe Screenshot:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Zwei Zeichenfolgen auf Ähnlichkeit vergleichen oder Unterschiede mit VBA-Code hervorheben

Wenn Sie zwei Zeichenfolgen vergleichen und die Ähnlichkeiten oder Unterschiede zwischen ihnen hervorheben möchten, kann Ihnen der folgende VBA-Code helfen.

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 Spaltenzeichenfolgen auf Ähnlichkeit vergleichen oder Unterschiede hervorheben

Sub highlight()
    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 selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Font.ColorIndex = xlAutomatic
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value2 = xCell2.Value2 Then
            If Not xDiffs Then xCell2.Font.Color = vbRed
        Else
            xLen = Len(xCell1.Value2)
            For J = 1 To xLen
                If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
            Next J
            If Not xDiffs Then
                If J <= Len(xCell2.Value2) And J > 1 Then
                    xCell2.Characters(1, J - 1).Font.Color = vbRed
                End If
            Else
                If J <= Len(xCell2.Value2) Then
                    xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
                End If
            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 ersten Dialogfeld von Kutools für Excel die erste Spalte der zu vergleichenden Textzeichenfolgen aus und klicken Sie dann auf die Schaltfläche OK.

4. Dann erscheint das zweite Dialogfeld von Kutools für Excel. Wählen Sie die zweite Spalte der Zeichenfolgen aus und klicken Sie auf die Schaltfläche OK.

5. Im letzten Dialogfeld von Kutools für Excel klicken Sie auf die Schaltfläche Ja, wenn Sie die Zeichenfolgen auf Ähnlichkeit vergleichen möchten. Um die Unterschiede der verglichenen Zeichenfolgen hervorzuheben, klicken Sie auf die Schaltfläche Nein. Siehe Screenshot:

Dann können Sie die Vergleichsergebnisse wie im folgenden Screenshot gezeigt sehen.

Verwandte Artikel:

• Wie vergleicht man zwei Spalten und hebt die nicht übereinstimmenden Daten in Excel hervor?
• Wie vergleicht man zwei Zeichenfolgen exakt (Groß-/Kleinschreibung beachten) in Excel?