Sie können die folgenden Methoden verwenden, um Daten in zwei Microsoft Excel-Arbeitsblattspalten zu vergleichen und doppelte Einträge zu finden.
Methode 1: Verwenden einer Arbeitsblattformel
-
Starten Sie Excel.
-
Geben Sie in einem neuen Arbeitsblatt die folgenden Daten als Beispiel ein (lassen Sie Spalte B leer):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Geben Sie in Zelle B1 die folgende Formel ein: =WENN(ISTFEHLER(VERGLEICH(A1,$C$1:$C$5,0)),"",A1)
-
Wählen Sie Zelle B1 bis B5 aus.
-
Wählen Sie In der Gruppe Bearbeiten ausfüllen und dann Nach unten aus. Die doppelten Zahlen werden wie im folgenden Beispiel in Spalte B angezeigt:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Methode 2: Verwenden eines Visual Basic Makros
Warnung: Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder stillschweigende Garantie. Dies schließt die stillschweigende Gewährleistung der Marktgängigkeit oder der Eignung für einen bestimmten Zweck ein, ist aber nicht darauf beschränkt. In diesem Artikel wird davon ausgegangen, dass Sie mit der vorgestellten Programmiersprache und den Werkzeugen zum Erstellen und Debuggen von Prozeduren vertraut sind. Die Support-Techniker von Microsoft können Ihnen die Funktionalität eines bestimmten Verfahrens erklären. Sie werden diese Beispiele jedoch nicht ändern, um zusätzliche Funktionen bereitzustellen oder Verfahren zu konstruieren, die Ihren speziellen Anforderungen entsprechen.
Um ein Visual Basic-Makro zu verwenden, um die Daten in zwei Spalten zu vergleichen, führen Sie die Schritte im folgenden Beispiel aus:
-
Starten Sie Excel.
-
Drücken Sie ALT+F11, um den Visual Basic-Editor zu starten.
-
Wählen Sie im Menü Einfügen den Eintrag Modul.
-
Geben Sie den folgenden Code in ein Modulblatt ein:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Drücken Sie ALT+F11, um zu Excel zurückzukehren.
-
Geben Sie die folgenden Daten als Beispiel ein (lassen Sie Spalte B leer):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Markieren Sie die Zellen A1 bis A5.
-
Wählen Sie die Registerkarte Entwickler und dann makros in der Gruppe Code aus.
Hinweis: Wenn Sie die Registerkarte Entwickler nicht sehen, müssen Sie sie möglicherweise aktivieren. Wählen Sie dazu Datei > Optionen > Multifunktionsleiste anpassen und wählen Sie dann die Registerkarte Entwickler im Anpassungsfeld auf der rechten Seite.
-
Klicken Sie auf Find_Matchesund dann auf Ausführen. Die doppelten Nummern werden in Spalte B angezeigt. Die übereinstimmenden Nummern werden neben der ersten Spalte eingefügt, wie hier dargestellt:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
