RemoveDuplicates in VBA Excel
Doppelte Werte sind in Excel häufig nicht erforderlich, insbesondere wenn eindeutige Werte gezählt werden sollen. Wir haben normalerweise einen anderen Datensatz, mit dem wir arbeiten können, und wir sehen eine Reihe doppelter Werte darin.
Ich hoffe, Sie sind mit dem Entfernen von Duplikaten im Excel-Arbeitsblatt vertraut. Wenn Sie sich keine Sorgen machen müssen, zeigen wir Ihnen ein einfaches Beispiel. Auch in VBA können wir die Methode zum Entfernen von Duplikaten durchführen.
Daher wurden alle doppelten Werte der Überschrift "Region" entfernt. Ebenso können wir diese Aufgabe mit Hilfe von VBA-Code erledigen.
Wie entferne ich doppelte Werte in der VBA-Codierung?
Um doppelte Werte zu entfernen, müssen wir zuerst den Bereich angeben, auf den wir uns beziehen. Dann können wir auf die Methode „Doppelte entfernen“ zugreifen. Die Syntax lautet also wie folgt.
[Spalte]: Welche Spalte der Auswahl benötigen wir, um Duplikate zu entfernen? Wir müssen die Spaltennummer des ausgewählten Bereichs erwähnen.
[Kopfzeile]: Der von Ihnen ausgewählte Bereich hat Kopfzeilen oder nicht. Wir haben drei Möglichkeiten, um hier zu arbeiten.
- xlYes: Wenn die Daten Header haben, können Sie diese auswählen.
- xlNein: Wenn die Daten keine Header haben, können Sie diese auswählen.
- xlGuess: Mit dieser Option kann der Excel die Header der Daten erraten.
Mit diesen Parametern können wir also Duplikate mit nur einem Knopfdruck entfernen, ohne unseren Schweiß zu brechen.
Im folgenden Abschnitt zeige ich Ihnen einige Beispiele für das Entfernen von Duplikaten durch VBA. Befolgen Sie die Schritte sorgfältig, um den Code selbst zu schreiben.
Beispiele für das Entfernen doppelter Werte in der VBA-Codierung
Nachfolgend finden Sie Beispiele für das Entfernen von Duplikaten in VBA-Werten.
VBA Removeduplicates - Beispiel 1
Berücksichtigen Sie auch die folgenden Daten für dieses Beispiel.
Aus den obigen Daten müssen Duplikate der Spalte "Region" entfernt werden. Befolgen Sie daher die folgenden Schritte, um den Code zu schreiben.
Schritt 1: Starten Sie die Unterprozedur, indem Sie einem Makrocode einen Namen geben.
Schritt 2: Erwähnen Sie den Datenbereich mithilfe des VBA Range-Objekts .
Code:
Sub Remove_Duplicates_Example1 () Bereich ("A1: C9"). End Sub
Schritt 3: Nachdem Sie die VBA- Methode " RemoveDuplicates " für den Bereichszugriff erwähnt haben .
Code:
Sub Remove_Duplicates_Example1 () Bereich ("A1: C9"). RemoveDuplicates End Sub 
Schritt 4: Erstes Argument, in welcher Spalte wir die doppelten Werte entfernen müssen. In diesem Beispiel aus der ersten Spalte müssen die Duplikate entfernt werden.
Code:
Sub Remove_Duplicates_Example1 () Bereich ("A1: C9"). RemoveDuplicates Columns: = 1, End Sub 
Schritt 5: Als nächstes müssen Sie prüfen, ob Daten Header haben oder nicht. In diesem Fall haben wir Header, wählen Sie also "xlYes".
Code:
Sub Remove_Duplicates_Example1 () Bereich ("A1: C9"). RemoveDuplicates Spalten: = 1, Header: = xlYes End Sub 
Führen Sie diesen Code aus, damit VBA Duplikate aus der ausgewählten Region entfernt.
Dies ist eine explizite Art, sich auf den Zellbereich zu beziehen. Wenn Sie den Bereich selbst auswählen und dann Duplikate entfernen möchten, müssen Sie die Variable verwenden, um damit zu arbeiten. Im folgenden Beispiel werde ich Ihnen zeigen, wie Sie Variablen in VBA verwenden.
VBA Removeduplicates - Beispiel 2
Im obigen Beispiel haben wir speziell den Zellbereich geliefert. Jetzt werden wir sehen, wie man mit der Auswahl eigener Zellen arbeitet.
Zum Beispiel habe ich einige Datensätze, wie im folgenden Bild gezeigt.
Jedes Mal, wenn ich den Zellenbereich nicht explizit angeben kann, weisen wir die Auswahl als Bereich zu.
Schritt 1: Deklarieren Sie die Variable als Bereich .
Code:
Sub Remove_Duplicates_Example2 () Dim Rng As Range End Sub
Schritt 2: Bereich ist ein Objekt, das wir als Auswahl festlegen .
Code:
Sub Remove_Duplicates_Example2 () Dim Rng As Range Set Rng = Selection End Sub
Schritt 3: Jetzt können wir anstelle eines Zellbereichs die Variable " rng " verwenden.
Code:
Sub Remove_Duplicates_Example2 () Dim Rng As Range Set Rng = Auswahl Rng.RemoveDuplicates Spalten: = 1, Header: = xlYes End Sub
Bevor wir den Code ausführen, müssen wir zuerst den Zellbereich auswählen, dann können wir Duplikate aus dem ausgewählten Zellbereich entfernen.
VBA Duplikate aus mehreren Spalten entfernen - Beispiel 3
Wir können VBA auch verwenden, um doppelte Werte aus Excel-Spalten zu entfernen. Um mehrere Spalten zu entfernen, müssen wir Array verwenden und die Spaltennummern angeben.
Schauen Sie sich zum Beispiel das Beispieldatenbild an.
Wir haben Werte in der ersten und vierten Spalte dupliziert. Also werden wir aus diesen Spalten entfernen. Verwenden Sie den folgenden Code für VBA, um Duplikate zu entfernen.
Code:
Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Columns: = Array (1, 4), Header: = xlYes End Sub You can download this VBA Remove Duplicates Excel here. VBA Remove Duplicates Excel Template
