Rück Unikate mit VBA in Microsoft Excel
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.
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.
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]