U ovom ćemo članku stvoriti makro za izdvajanje jedinstvenih vrijednosti iz definiranog raspona.
Sirovi podaci za ovaj primjer sastoje se od dupliciranih unosa naziva država u rasponu A7: A21.
Napravili smo makro "FindUniqueValues" za izdvajanje jedinstvenih vrijednosti iz definiranog raspona. Ovu makronaredbu možete pokrenuti klikom na gumb "Pošalji". Prije nego što kliknemo gumb "Pošalji", moramo odrediti adresu raspona koji sadrži duplicirane podatke u ćeliji H9 i adresu odredišta na kojem bi se trebao pojaviti izlaz.
Logično objašnjenje
Makro "FindUniqueValues" uzima dva objekta raspona kao ulazne parametre. Prvi parametar definira raspon koji sadrži duplicirane podatke, a drugi parametar definira položaj početne ćelije koja će sadržavati izlaz. Ova se makronaredba ne može izravno pozvati jer moramo navesti parametre, pa smo stvorili drugu makronaredbu “MacroRunning” za pozivanje makronaredbe.
Makronaredba "MacroRunning" poziva makro "FindUniqueValues" s parametrom koji je unijeo korisnik.
Objašnjenje koda
SourceRange.AdvancedFilter Action: = xlFilterCopy, _
CopyToRange: = TargetCell, Unique: = True
AdvancedFilter metoda Range objekta koristi se za filtriranje ili kopiranje podataka iz raspona na temelju određenih kriterija. Da bismo kopirali samo jedinstvene vrijednosti, moramo postaviti Unique parametar AdvancedFiltera na True.
Molimo slijedite dolje za kôd
Opcija Explicit Sub FindUniqueValues (SourceRange As Range, TargetCell As Range) 'Korištenje filtra unaprijed za izuzimanje jedinstvenih stavki u izvornom rasponu SourceRange.AdvancedFilter Action: = xlFilterCopy, _ CopyToRange: = TargetCell, Unique: = True End Sub Sub MacroRunning () Pozivanje makronaredbe FindUniqueValues Pozovite FindUniqueValues (raspon (raspon ("H9"). Vrijednost), raspon (raspon ("H10"). Vrijednost)) End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
