VBA Duplikate entfernen - Wie entferne ich doppelte Werte in Excel VBA?

Inhaltsverzeichnis

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. Wir zeigen Ihnen ein einfaches Beispiel. Auch in VBA können wir die Methode zum Entfernen von Duplikaten ausfü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 zuerst zu entfernen, müssen wir den Bereich erwähnen, auf den wir uns beziehen. Dann können wir auf die Methode "Duplikate 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 Überschriften 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 Klick auf eine Schaltfläche 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 Duplikate entfernen - 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 müssen wir aus der ersten Spalte die Duplikate entfernen.

Code:

Sub Remove_Duplicates_Example1 () Range ("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. VBA entfernt Duplikate aus der ausgewählten Region.

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 Duplikate entfernen - Beispiel 2

Im obigen Beispiel haben wir speziell den Zellbereich geliefert. Jetzt werden wir sehen, wie wir mit der Auswahl unserer eigenen Zellen arbeiten.

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: Reichweite ist ein Objekt. Wir werden das Sortiment als unsere Auswahl festlegen .

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub

Step 3: Now, instead of a range of cells, we can use the variable “rng.”

Code:

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

Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.

VBA Remove Duplicates from Multiple Columns - Example #3

We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.

For example, look at the example data image.

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

Sie können dieses VBA Remove Duplicates Excel hier herunterladen. VBA Excel-Vorlage für doppelte Kopien entfernen

Interessante Beiträge...