In diesem Artikel erstellen wir ein Makro, um eindeutige Werte aus dem definierten Bereich zu extrahieren.
Rohdaten für dieses Beispiel bestehen aus doppelten Einträgen von Ländernamen im Bereich A7:A21.
Wir haben das Makro „FindUniqueValues“ erstellt, um eindeutige Werte aus dem definierten Bereich zu extrahieren. Dieses Makro kann durch Klicken auf die Schaltfläche „Senden“ ausgeführt werden. Bevor Sie auf die Schaltfläche „Senden“ klicken, müssen wir die Adresse des Bereichs, der doppelte Daten enthält, in der Zelle H9 und die Adresse des Ziels angeben, an dem die Ausgabe erscheinen soll.
Logikerklärung
Das Makro „FindUniqueValues“ verwendet zwei Bereichsobjekte als Eingabeparameter. Der erste Parameter definiert den Bereich, der die doppelten Daten enthält, und der zweite Parameter definiert die Position der Startzelle, die die Ausgabe enthält. Dieses Makro kann nicht direkt aufgerufen werden, da wir die Parameter angeben müssen, daher haben wir ein zweites Makro „MacroRunning“ erstellt, um das Makro aufzurufen.
Das Makro „MacroRunning“ ruft das Makro „FindUniqueValues“ mit der Parametereingabe durch den Benutzer auf.
Codeerklärung
SourceRange.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=TargetCell, Unique:=True
Die AdvancedFilter-Methode des Range-Objekts wird verwendet, um Daten aus dem Bereich basierend auf bestimmten Kriterien zu filtern oder zu kopieren. Um nur die eindeutigen Werte zu kopieren, müssen wir den Unique-Parameter von AdvancedFilter auf True setzen.
Bitte folgen Sie unten für den Code
Option Explicit Sub FindUniqueValues(SourceRange As Range, TargetCell As Range) 'Verwenden des erweiterten Filters zum Extrahieren eindeutiger Elemente im Quellbereich SourceRange.AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=TargetCell, Unique:=True End Sub Sub MacroRunning() ' Aufruf des FindUniqueValues-Makros Aufruf FindUniqueValues(Range(Range("H9").Value), Range(Range("H10").Value)) End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site
