Wie vergleiche ich zwei Zeichenfolgen auf Ähnlichkeit oder hebe Unterschiede in Excel hervor?
In einigen Fällen müssen Sie möglicherweise nur zwei benachbarte Zellen von Zeichenfolgen vergleichen und deren Ähnlichkeiten oder Unterschiede in Excel markieren. Dieser Artikel bietet zwei Methoden, um dies zu erreichen.
Vergleichen Sie zwei Zeichenfolgen mit der Formel
Vergleichen Sie zwei Zeichenfolgen auf Ähnlichkeit oder markieren Sie Unterschiede mit VBA-Code
Vergleichen Sie zwei Zeichenfolgen mit der Formel
Wie im folgenden Screenshot gezeigt, können Sie die folgende Formel anwenden, wenn Sie nur wissen möchten, ob die verglichenen Zeichenfolgen übereinstimmen oder nicht.
1. Wählen Sie eine leere Zelle C2 aus und geben Sie die Formel ein = GENAU (A2, B2) in die Formelleiste und drücken Sie die Eingabetaste. Siehe Screenshot:
Note: In der Formel sind A2 und B2 die Zellen, die die Vergleichszeichenfolgen enthalten.
2. Wählen Sie die Ergebniszelle weiter aus und ziehen Sie den Füllgriff auf die Zellen, bis alle verglichenen Ergebnisse angezeigt werden.
Das FALSE-Ergebnis bedeutet, dass die verglichenen Zeichenfolgen unterschiedlich sind, und das TRUE-Ergebnis zeigt an, dass die beiden verglichenen Zeichenfolgen übereinstimmen. Siehe Screenshot:
Vergleichen Sie zwei Zeichenfolgen auf Ähnlichkeit oder markieren Sie Unterschiede mit VBA-Code
Wenn Sie zwei Zeichenfolgen vergleichen und die Ähnlichkeiten oder Unterschiede zwischen ihnen hervorheben möchten. Der folgende VBA-Code kann Ihnen helfen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Vergleichen Sie zwei Spaltenzeichenfolgen auf Ähnlichkeit oder markieren Sie Unterschiede
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 Schlüssel zum Ausführen des Codes. In der ersten Kutools for Excel Wählen Sie im Dialogfeld die erste Spalte der zu vergleichenden Textzeichenfolgen aus und klicken Sie auf OK .
4. Dann die zweite Kutools for Excel Das Dialogfeld wird angezeigt. Wählen Sie die Zeichenfolgen der zweiten Spalte aus und klicken Sie auf OK .
5. Im letzten Kutools for Excel Wenn Sie im Dialogfeld Zeichenfolgen auf Ähnlichkeit vergleichen möchten, klicken Sie auf Ja Taste. Um die Unterschiede der verglichenen Zeichenfolgen hervorzuheben, klicken Sie auf Nein Taste. Siehe Screenshot:
Dann können Sie die verglichenen Ergebnisse wie im folgenden Screenshot sehen.
In Verbindung stehende Artikel:
- Wie vergleiche ich zwei Spalten und hebe die nicht übereinstimmenden Daten in Excel hervor?
- Wie kann man zwei Zeichenfolgen (Groß- und Kleinschreibung beachten) in Excel genau vergleichen?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!