Filtrujte svoje excelové zoznamy pomocou makra tak, aby sa viac záznamov v novom cieľovom zozname zobrazilo iba raz, a tým vyčistite svoje údaje.
Mnoho zoznamov obsahuje duplicitné položky. Niekedy je dôležité filtrovať tieto položky zo zoznamu. Pomocou predajného zoznamu môžete napríklad vytvoriť zoznam, v ktorom sa každý zákazník objaví iba raz - to môže byť dôležité napríklad pre analýzy trhu.
Tabuľka z nasledujúceho obrázku zobrazuje malý zoznam programu Excel s číslami v stĺpci B.
Z tohto zoznamu chcete vytvoriť nový zoznam, v ktorom sa už čísla dvakrát nezobrazia. Číslo 21, ktoré sa nachádza v bunkách B3, B5 a B14 v pôvodnom zozname, by sa v novom zozname objavilo iba raz.
Existuje niekoľko spôsobov, ako to môžete urobiť v programe Excel. Ak chcete použiť makro, môžete použiť nasledujúce príkazy VBA:
Pod zoznam bez duplikátov ()
Dim Source As Range
Dim cieľ ako rozsah
Nastaviť zdroj = rozsah ("b1")
Nastaviť cieľ = Rozsah ("d1")
Source.EntireColumn.AdvancedFilter Akcia: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Koniec pod
Po spustení makra Excel tabuľku filtruje a zobrazí novú tabuľku z bunky D1. Nasledujúci obrázok ukazuje výsledok:
Môžete vidieť, že každá hodnota sa v zozname výsledkov zobrazí iba raz.
Pomocou premennej SOURCE zadajte stĺpec tabuľky, v ktorom sa nachádzajú údaje, z ktorého chcete vygenerovať nový zoznam bez duplicitných záznamov. Makro vždy používa celý stĺpec patriaci odkazu, ktorý definujete pomocou ZDROJA. Pomocou premennej definujte ľubovoľnú adresu bunky v zodpovedajúcom stĺpci.
S premennou TARGET určujete, kam Excel zapíše váš zoznam výsledkov. Nový zoznam začína na pozícii, ktorú zadáte pomocou tejto premennej.
Makro pracuje s aktívnym pracovným listom pre zdrojovú aj cieľovú oblasť.
Ak chcete vložiť makro do tabuľky, otvorte príslušný zošit a stlačením klávesovej skratky ALT F11 vo všetkých verziách programu Excel spustite editor VBA. Zavolajte príkaz INSERT - MODULE a vložte príkazy VBA. Na spustenie makra z Excelu použite kombináciu klávesov ALT F8.
