Filtruj listy programu Excel za pomocą makra w taki sposób, aby wiele wpisów pojawiało się tylko raz na nowej liście docelowej, a tym samym wyczyść dane.
Wiele list zawiera zduplikowane wpisy. Czasami ważne jest odfiltrowanie tych wpisów z listy. Na przykład, możesz użyć listy sprzedaży, aby stworzyć listę, w której każdy klient pojawia się tylko raz - może to mieć znaczenie np. w przypadku analiz rynkowych.
Tabela z poniższego rysunku przedstawia małą listę programu Excel z liczbami w kolumnie B.
Chcesz utworzyć nową listę z tej listy, w której liczby nie pojawiają się już dwukrotnie. Liczba 21, którą można znaleźć w komórkach B3, B5 i B14 na oryginalnej liście, pojawi się na nowej liście tylko raz.
W programie Excel można to zrobić na kilka sposobów. Jeśli chcesz użyć makra, możesz użyć następujących poleceń VBA:
Lista podrzędna bez duplikatów ()
Przyciemnij źródło jako zakres
Dim cel jako zasięg
Ustaw źródło = Zakres ("b1")
Ustaw cel = Zakres ("d1")
Source.EntireColumn.AdvancedFilter Akcja: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Napis końcowy
Po uruchomieniu makra Excel filtruje tabelę i wyświetla nową tabelę z komórki D1. Poniższy rysunek przedstawia wynik:
Widać, że każda wartość pojawia się tylko raz na liście wyników.
Użyj zmiennej SOURCE, aby określić kolumnę tabeli, w której znajdują się dane, z której chcesz wygenerować nową listę bez zduplikowanych wpisów. Makro zawsze używa całej kolumny należącej do odniesienia zdefiniowanego za pomocą SOURCE. Użyj zmiennej, aby zdefiniować dowolny adres komórki w odpowiedniej kolumnie.
Za pomocą zmiennej TARGET określasz, gdzie Excel zapisuje listę wyników. Nowa lista zaczyna się od pozycji określonej przez tę zmienną.
Makro działa z aktywnym arkuszem zarówno dla obszaru źródłowego, jak i docelowego.
Aby wstawić makro do tabeli, otwórz odpowiedni skoroszyt i naciśnij kombinację klawiszy ALT F11 we wszystkich wersjach programu Excel, aby uruchomić edytor VBA. Wywołaj polecenie INSERT - MODULE i wstaw polecenia VBA. Aby uruchomić makro z programu Excel, użyj kombinacji klawiszy ALT F8.
