zurück In diesem Artikel erstellen wir ein Makro, um eindeutige Werte aus dem definierten Bereich zu extrahieren.

Die Rohdaten für dieses Beispiel bestehen aus doppelten Einträgen von Ländernamen im Bereich A7: A21.

ArrowMain

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 Sie die Adresse des Bereichs angeben, der doppelte Daten in der Zelle H9 enthält, sowie die Adresse des Ziels, an dem die Ausgabe erfolgen soll.

ArrowOutput

Logische Erklä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 das zweite Makro „MacroRunning“ erstellt, um das Makro aufzurufen.

Das Makro „MacroRunning“ ruft das Makro „FindUniqueValues“ mit den vom Benutzer eingegebenen Parametern auf.

Code Erklärung

SourceRange.AdvancedFilter Aktion: = xlFilterCopy, _ CopyToRange: = TargetCell, Unique: = True Die AdvancedFilter-Methode des Range-Objekts wird zum Filtern oder Kopieren von Daten aus dem Bereich anhand bestimmter Kriterien verwendet. Um nur die eindeutigen Werte zu kopieren, müssen Sie 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)

'Using advance filter for extacting unique items in the source range

SourceRange.AdvancedFilter Action:=xlFilterCopy, _

CopyToRange:=TargetCell, Unique:=True



End Sub

Sub MacroRunning()

'Calling FindUniqueValues macro

Call 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 und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]