Direkt zum Inhalt

Wie finde ich doppelte oder eindeutige Werte in zwei Spalten von zwei Blättern?

Vielleicht ist es für die meisten von Ihnen einfach, zwei Bereiche im selben Arbeitsblatt zu vergleichen und herauszufinden, ob doppelte oder eindeutige Werte vorhanden sind. Wenn sich die beiden Bereiche jedoch in zwei verschiedenen Arbeitsblättern befinden, wie können Sie die doppelten und eindeutigen Werte in diesen beiden Bereichen schnell ermitteln ? In diesem Tutorial werden einige schnelle Schnitte für Sie vorgestellt.

Vergleichen Sie zwei gleiche Kopfspalten in zwei Tabellen mit der Formel in Excel

Vergleichen Sie zwei Bereiche in zwei Tabellen mit VBA

Vergleichen Sie zwei Bereiche in zwei Tabellen mit Kutools for Excel


Pfeil blau rechte Blase Vergleichen Sie zwei gleiche Kopfspalten in zwei Tabellen mit der Formel in Excel

Mit der Formel in Excel können Sie zwei gleiche Kopfzeilenspalten wie unten gezeigt auf verschiedenen Blättern vergleichen und die doppelten und eindeutigen Werte finden:

1. Geben Sie diese Formel ein = COUNTIF (Sheet1! $ A: $ A, A1) in einer leeren Zelle, die an den Bereich in Blatt 3 angrenzt. Siehe Screenshot:

2. Drücken Sie Enter Klicken Sie auf der Tastatur auf die Schaltfläche, und ziehen Sie dann den Füllpunkt, um den Bereich zu füllen, den Sie mit dem Bereich in Blatt 1 vergleichen möchten. (Nummer Null bedeutet doppelte Werte in zwei Bereichen und Nummer 1 bedeutet eindeutige Werte in Blatt 3, jedoch nicht in Blatt 1)

Tipps:

1.Diese Formel kann nur zwei Spalten mit demselben Header in zwei Tabellen vergleichen.

2. Wenn Sie die eindeutigen Werte in Sheet1, aber nicht in Sheet3 suchen möchten, müssen Sie die obige Formel = eingebenCOUNTIF (Blatt 3! $ A: $ A, A1) in Sheet1.


Pfeil blau rechte Blase Vergleichen Sie zwei Bereiche in zwei Tabellen mit VBA

1. Halt ALT Taste drücken und drücken F11 auf der Tastatur zum Öffnen a Microsoft Visual Basic für Anwendung Fenster.

2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.

VBA: Vergleichen Sie zwei Bereiche in zwei Tabellen

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 als Bereich, WorkRng2 als Bereich, Rng1 als Bereich, Rng2 als Bereich xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Bereich A:", xTitleId, "", Typ: = 8 ) Setzen Sie WorkRng2 = Application.InputBox ("Bereich B:", xTitleId, Typ: = 8) für jedes Rng1 in WorkRng1 rng1Value = Rng1.Value Für jedes Rng2 in WorkRng2 Wenn rng1Value = Rng2.Value, dann Rng1.Interior.Color = VBA .RGB (255, 0, 0) Exit For End If Next Next End Sub

3 Klicken Führen Sie Taste oder drücken F5 um die VBA auszuführen.

4. Auf dem Bildschirm wird ein Dialogfeld angezeigt, und Sie sollten einen Bereich auswählen, mit dem Sie vergleichen möchten. Siehe Screenshot:

5 Klicken Ok und ein weiterer Dialog wird angezeigt, in dem Sie den zweiten Bereich auswählen können. Siehe Screenshot:

6 Klicken Okund die doppelten Werte sowohl in Bereich A als auch in Bereich B werden in Bereich A mit dem roten Hintergrund hervorgehoben. Siehe Screenshot:

Tipps: Mit diesem VBA können Sie zwei Bereiche in demselben und in verschiedenen Arbeitsblättern vergleichen.


Pfeil blau rechte Blase Vergleichen Sie zwei Bereiche in zwei Tabellen mit Kutools for Excel

Wenn die Formel für Sie nicht geeignet ist und VBA für Sie schwierig ist, können Sie sie ausprobieren Kutools for Excel's Bereiche vergleichen Funktion.

Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt

Bitte bewerben Bereiche vergleichen Funktion durch Klicken Kutoolen > Bereiche vergleichen. Siehe Screenshot:

Vergleichen Sie mit zwei Spalten in verschiedenen Blättern:

1 Klicken Kutoolen > Bereiche vergleichenAuf dem Bildschirm wird ein Dialogfeld angezeigt. Siehe Screenshot:

2. Geben Sie die Bereiche und Regeln wie folgt an:

Lassen Sie Compare im gleichen Bereich Deaktivieren Sie diese Option und wählen Sie zwei Bereiche aus, indem Sie auf klicken Bereich A. und Bereich B., siehe Screenshot:

Geben Sie dieselben oder unterschiedliche Werte an, die Sie im Dropdown-Feld unter Regeln suchen möchten.

3 Klicken Ok. Ein Popup-Dialogfeld zeigt an, dass dieselben Werte ausgewählt sind.

4 Klicken Ok Schaltfläche im Popup-Dialogfeld. Die gleichen Werte zwischen zwei Bereichen werden in Bereich A ausgewählt.

Vergleichen Sie zwei Bereiche in verteilten Arbeitsblättern

Wenn Sie zwei Bereiche in zwei Tabellen haben, wie unten gezeigt, und Sie diese vergleichen und die verschiedenen Werte herausfinden möchten, können Sie wie folgt vorgehen:

1 Klicken Kutoolen > Bereiche vergleichenAuf dem Bildschirm wird ein Dialogfeld angezeigt.

2. Geben Sie die Bereiche und Regeln wie folgt an:

Verlassen Vergleichen Sie im gleichen Bereich Deaktivieren Sie diese Option und wählen Sie zwei Bereiche aus, indem Sie auf klicken Bereich A. und Bereich B.;

Geben Sie die verschiedenen Werte an, die Sie im Dropdown-Feld unter Regeln suchen möchten.

Überprüfen Sie, ob meine Daten Überschriften haben in Optionen Sektion;

3 Klicken Ok. Ein Popup-Dialogfeld zeigt an, dass dieselben Werte ausgewählt sind.

4 Klicken Ok Schaltfläche im Popup-Dialogfeld. Die verschiedenen Werte in Bereich A werden ausgewählt. Siehe Screenshot:

Wenn Sie die unterschiedlichen Werte in Bereich B von Blatt 2 herausfinden möchten, müssen Sie die beiden Bereiche vertauschen.

Bereiche vergleichen Funktion kann auch Bereiche in demselben Blatt vergleichen. Klicken Sie hier, um mehr über Compare Ranges zu erfahren.


Relative Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

Beschreibung


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations