Filtrujte své excelové seznamy pomocí makra takovým způsobem, aby se více položek objevilo pouze jednou v novém cílovém seznamu, a tím vyčistíte svá data.
Mnoho seznamů obsahuje duplicitní položky. Někdy je důležité filtrovat tyto položky ze seznamu. Pomocí prodejního seznamu můžete například vytvořit seznam, ve kterém se každý zákazník objeví pouze jednou - to může být důležité například pro analýzy trhu.
Tabulka z následujícího obrázku ukazuje malý seznam aplikace Excel s čísly ve sloupci B.
Z tohoto seznamu chcete vytvořit nový seznam, ve kterém se čísla již dvakrát nezobrazují. Číslo 21, které lze nalézt v buňkách B3, B5 a B14 v původním seznamu, by se v novém seznamu objevilo pouze jednou.
Existuje několik způsobů, jak to v aplikaci Excel provést. Pokud chcete použít makro, můžete použít následující příkazy VBA:
Dílčí seznam bez duplikátů ()
Dim Source As Range
Dim cíl jako rozsah
Nastavit zdroj = rozsah ("b1")
Nastavit cíl = Rozsah ("d1")
Source.EntireColumn.AdvancedFilter Akce: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
End Sub
Po spuštění makra Excel filtruje tabulku a zobrazí novou tabulku z buňky D1. Následující obrázek ukazuje výsledek:
Můžete vidět, že každá hodnota se v seznamu výsledků zobrazí pouze jednou.
Pomocí proměnné SOURCE určete sloupec tabulky, ve kterém se nacházejí data, ze kterého chcete vygenerovat nový seznam bez duplicitních záznamů. Makro vždy používá celý sloupec patřící odkazu, který definujete pomocí ZDROJE. Pomocí proměnné definujte libovolnou adresu buňky v odpovídajícím sloupci.
S proměnnou TARGET určujete, kam aplikace Excel zapíše váš seznam výsledků. Nový seznam začíná na pozici, kterou zadáte pomocí této proměnné.
Makro pracuje s aktivním listem pro zdrojovou i cílovou oblast.
Chcete -li makro vložit do tabulky, otevřete odpovídající sešit a stisknutím kombinace kláves ALT F11 ve všech verzích aplikace Excel spusťte editor VBA. Zavolejte příkaz INSERT - MODULE a vložte příkazy VBA. Chcete -li spustit makro z aplikace Excel, použijte kombinaci kláves ALT F8.
