Eine der wichtigsten Aktivitäten in Excel ist die Duplikate entfernen Heute zeige ich Ihnen, wie Sie Duplikate in Excel nur mit VBA entfernen können.

Download Arbeitsbuch Praxis

3 schnelle Methoden zur Verwendung von VBA in Excel, um Duplikate zu entfernen

Hier haben wir einen Datensatz mit dem Namen, IDs, Markierungen, und Klassen bei der Prüfung einiger Schüler einer Schule namens Sunflower Kindergarten.

Wenn Sie genau hinsehen, werden Sie feststellen, dass einige Namen fälschlicherweise wiederholt wurden.

Unser heutiges Ziel ist es, die doppelten Werte mit Excel VBA zu entfernen.

1. verwenden Sie VBA, um Duplikate aus einem festen Zellbereich zu entfernen

Zunächst einmal werden wir versuchen die doppelten Namen entfernen unter Verwendung eines festen Zellbereichs in der VBA Code.

Hier ist unser Datensatz der Bereich B3:E15 in der Arbeitsmappe (einschließlich der Spaltenüberschriften ).

Wir werden diesen festen Zellbereich hier im Code verwenden.

Schritt 1:

➤ Öffnen Sie ein neues VBA Fenster und fügen Sie ein neues Modul ein (Klicken Sie hier, um zu sehen wie man ein neues VBA-Modul in Excel öffnet und einfügt).

➤ Fügen Sie diesen Code in das Modul ein:

Code:

 Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub 

➤ Es erzeugt ein Makro namens Duplikate entfernen . A3:E14 ist der Bereich meines Datensatzes, und ich möchte die doppelten Zeilen entfernen auf Grund Säule 1 Sie benutzen Ihre.

Schritt 2:

➤ Kehren Sie zu Ihrem Arbeitsblatt zurück und führen Sie dieses Makro aus (Klicken Sie hier, um zu sehen, wie Sie das Makro ausführen).

➤ Es werden die Zeilen mit Duplikaten in Spalte 1 entfernt ( Name des Schülers).

Lesen Sie mehr: Duplikate in Excel löschen, aber eines behalten (7 Methoden)

2) Einfügen von VBA-Codes zum Entfernen von Duplikaten aus dem ausgewählten Zellbereich

Nun wollen wir versuchen, ein Makro zu erstellen, das Duplikate aus einem beliebigen ausgewählten Zellbereich im Arbeitsblatt entfernen kann.

Schritt 1:

➤ Öffnen Sie ein neues VBA und fügen Sie ein weiteres neues Modul ein.

➤ Fügen Sie diesen Code in das Modul ein:

Code:

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub 

➤ Es erzeugt ein Makro namens Duplikate entfernen Ich möchte die doppelten Zeilen entfernen, die auf Säule 1 Sie benutzen Ihre.

Schritt 2:

➤ Komm zurück zu deinem Arbeitsblatt.

➤ Wählen Sie Ihren Datensatz aus und führen Sie dieses Makro aus.

➤ Es wird das Gleiche wie oben ausgeführt. Entfernen Sie die Zeilen mit Duplikaten in Spalte 1 ( Name des Schülers).

Lesen Sie mehr: Doppelte Zeilen in Excel entfernen (3 Wege)

Ähnliche Lektüre

• Entfernen von Duplikaten aus Spalten in Excel (3 Methoden)
• Excel VBA: Duplikate aus einem Array entfernen (2 Beispiele)
• Duplikate entfernen und den ersten Wert in Excel behalten (5 Methoden)
• Doppelte Zeilen mit Ausnahme des 1. Vorkommens in Excel entfernen (7 Wege)
• Wie man beide Duplikate in Excel entfernt (5 einfache Wege)

3. ein VBA-Makro zum Entfernen von Duplikaten aus mehreren Spalten einbetten

Bis jetzt haben wir die Zeilen mit Duplikaten in Spalte 1 entfernt ( Name des Schülers ).

Aber die Namen von zwei Schülern können tatsächlich gleich sein, und es bedeutet nicht immer, dass sie irrtümlich hinzugefügt wurden, wenn zwei Namen gleich sind.

Wenn aber die IDs zweier Schüler gleich sind, handelt es sich um denselben Schüler. Dann ist die Zeile zu entfernen.

Dieses Mal werden wir ein Makro entwickeln, das die Zeile entfernt, wenn der Name und die ID von zwei Zeilen gleich sind.

Schritt 1:

➤ Öffnen Sie ein neues VBA und fügen Sie ein weiteres neues Modul ein.

➤ Fügen Sie diesen Code in das Modul ein:

Code:

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub 

➤ Es erzeugt ein Makro namens Duplikate entfernen Ich möchte die doppelten Zeilen entfernen, die auf Spalte 1 und 2 (Name und ID) Sie benutzen Ihre.

Schritt 2:

➤ Komm zurück zu deinem Arbeitsblatt.

➤ Wählen Sie Ihren Datensatz aus und führen Sie dieses Makro aus.

Diesmal werden die Zeilen nur entfernt, wenn der Name und die Schüler-ID übereinstimmen.

Anmerkung: In diesem Fall wurde Jennifer Marlo nicht entfernt, da die IDs der beiden Studenten unterschiedlich sind, d. h. es handelt sich um zwei verschiedene Studenten.

Lesen Sie mehr: Excel VBA: Entfernen von Duplikaten durch Vergleich mehrerer Spalten (3 Beispiele)

Schlussfolgerung

Mit diesen Methoden können Sie mit VBA Duplikate aus einem Datensatz in Excel entfernen. Wenn Sie Probleme haben, fragen Sie uns.