Wie vergleicht man zwei Zeichenketten in Excel auf Ähnlichkeit oder hebt deren Unterschiede hervor?
In einigen Fällen möchten Sie möglicherweise lediglich zwei benachbarte Zellen mit Zeichenketten vergleichen und ihre Ähnlichkeiten oder Unterschiede direkt in Excel hervorheben. Dieser Artikel zeigt Ihnen zwei effektive Methoden, um genau das zu erreichen.
Vergleichen Sie zwei Zeichenketten mit einer Formel
Vergleichen Sie zwei Zeichenketten auf Ähnlichkeit oder heben Sie Unterschiede mit VBA-Code hervor
Vergleichen Sie zwei Zeichenketten mit einer Formel
Wie im folgenden Screenshot gezeigt, können Sie die nachstehende Formel verwenden, wenn Sie lediglich prüfen möchten, ob die zu vergleichenden Zeichenketten übereinstimmen oder nicht.
1. Wählen Sie eine leere Zelle C2 aus, geben Sie die Formel =EXACT(A2;B2) in die Formelleiste ein und drücken Sie anschließend die Eingabetaste. Siehe Screenshot:
Hinweis: In der Formel enthalten A2 und B2 die Zeichenketten, die Sie vergleichen möchten.
2. Behalten Sie die Ergebniszelle markiert und ziehen Sie den Ausfüllknauf bis zu den gewünschten Zellen, um alle Vergleichsergebnisse zu erhalten.
Das Ergebnis „FALSCH“ zeigt an, dass die verglichenen Zeichenketten unterschiedlich sind, während „WAHR“ bedeutet, dass sie übereinstimmen. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Vergleichen Sie zwei Zeichenketten auf Ähnlichkeit oder heben Sie Unterschiede mit VBA-Code hervor
Wenn Sie zwei Zeichenketten vergleichen und deren Ähnlichkeiten oder Unterschiede hervorheben möchten, unterstützt Sie der folgende VBA-Code.
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den folgenden Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Zwei Spalten mit Zeichenketten 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 Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im ersten Kutools für Excel-Dialogfeld die erste Spalte mit den zu vergleichenden Zeichenketten aus und klicken Sie dann auf die Schaltfläche OK.
4. Anschließend erscheint das zweite Kutools für Excel-Dialogfeld. Wählen Sie bitte die zweite Spalte mit Zeichenketten aus und klicken Sie auf die Schaltfläche OK.
5. Klicken Sie im letzten Kutools für Excel-Dialogfeld auf die Schaltfläche Ja, wenn Sie die Zeichenketten auf Ähnlichkeit vergleichen möchten. Um die Unterschiede der verglichenen Zeichenketten hervorzuheben, klicken Sie auf die Schaltfläche Nein. Siehe Screenshot:
Anschließend sehen Sie die Vergleichsergebnisse, wie im folgenden Screenshot dargestellt.
Verwandte Artikel:
- Wie vergleicht man zwei Spalten in Excel und hebt dabei nicht übereinstimmende Daten hervor?
- Wie vergleicht man zwei Zeichenketten in Excel exakt – unter Berücksichtigung der Groß- und Kleinschreibung?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins