Wie vergleicht man zwei Spalten in Excel und hebt dabei nicht übereinstimmende Daten hervor?
Wie im folgenden Screenshot gezeigt, können Sie die in diesem Artikel beschriebenen Methoden nutzen, um zwei Spalten benachbarter Zellen zu vergleichen und abweichende Daten hervorzuheben.
Vergleichen Sie zwei Spalten und heben Sie nicht übereinstimmende Daten mit VBA-Code hervor
Vergleichen Sie zwei Spalten und heben Sie nicht übereinstimmende Daten mit Kutools für Excel hervor
Vergleichen Sie zwei Spalten und heben Sie nicht übereinstimmende Daten mit VBA-Code hervor
Wie im obigen Screenshot gezeigt, vergleichen Sie die Daten in Spalte A mit denen in Spalte B. Führen Sie den folgenden VBA-Code aus, um abweichende Einträge hervorzuheben.
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 in das Code-Fenster.
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 Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld Kutools für Excel die erste Spalte aus, die Sie vergleichen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot.
4. Wählen Sie anschließend im nächsten erscheinenden Dialogfeld Kutools für Excel die zweite zu vergleichende Spalte aus.
5. Klicken Sie im unten abgebildeten Dialogfeld zur Hervorhebung nicht übereinstimmender Daten auf die Schaltfläche Nein.
Anschließend werden alle nicht übereinstimmenden Daten zwischen den beiden Spalten sofort hervorgehoben. Siehe Screenshot:
Vergleichen Sie zwei Spalten und heben Sie nicht übereinstimmende Daten mit Kutools für Excel hervor
Wenn Sie lediglich prüfen und hervorheben möchten, ob die Zellwerte einer Spalte in einer anderen Spalte vorkommen – beispielsweise kommt die Zahl 2 in Spalte A im folgenden Screenshot nicht in Spalte B vor – können Sie das Hilfsprogramm Bereiche vergleichen von Kutools für Excel verwenden.
1. Klicken Sie auf Kutools > Einfügen > Gleiche/Unterschiedliche Zellen auswählen. Siehe Screenshot:
2. Konfigurieren Sie im Dialogfeld Gleiche/Unterschiedliche Zellen auswählen wie folgt:
3. Anschließend erscheint ein Dialogfeld mit der Information, wie viele Zellen nur in Spalte A, aber nicht in Spalte B enthalten sind. Klicken Sie auf „OK“, und alle übereinstimmenden Zellen in Spalte A werden markiert.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandte Artikel:
- Wie vergleicht man zwei Zeichenketten in Excel hinsichtlich ihrer Ähnlichkeit oder hebt deren Unterschiede 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