Łatwe usuwanie duplikatów z wykorzystaniem makra

Otrzymałeś listę firm, które nawiązały współpracę w minionym roku. Dane były uzupełniane przez kilku pracowników i niestety na liście znajdują się powtórzone nazwy. Ty potrzebujesz szybko je usunąć. Proponujemy zastosowania makra, które zrobi to błyskawicznie.

Przykładową listę zawierającą powtórzone wartości przedstawia rysunek 1.

Rys. 1. Lista zawierająca powtórzone nazwy firm

=> Aby szybko pozbyć się duplikatów, wykonaj następujące wartości.
1. Kliknij dowolną komórkę zawierającą nazwę firmy i wybierz na pasku narzędziowym ikonę polecenia Sortuj rosnąco.
2. Wciśnij kombinację klawiszy lewy Alt + F11, aby otworzyć Edytor VBA.
3. W oknie Edytora wstaw nowy moduł, wybierając z menu Insert polecenie Module.
4. Do okna po prawej wpisz kod widoczny na rysunku 2.

Rys. 1. Kod makra

5. Zapisz i zamknij Edytor VBA.
6. Teraz zaznacz zakres komórek zawierający nazwy firm i wciśnij kombinację klawiszy lewy Alt + F8.
7. Zostanie wyświetlone okno dialogowe Makro, w którym kliknij nazwę makra OznaczDuplikaty i kliknij przycisk Uruchom.

Zamiast powtórzonych nazw firm w komórkach pojawiło się słowo Duplikat. A zatem wszystkie wiersze, w których się ono znajduje, powinny być usunięte.

=> Aby to szybko zrobić:
8. Zaznacz dowolną komórkę w pierwszym wierszu zestawienia (np. B1) i z menu Dane wybierz polecenie Filtr/Autofiltr.
9. Kliknij rozwijaną listę w komórce B1 i wybierz nazwę Duplikat.

Rys. 3. Przefiltruj listę, tak aby widoczne były tylko wiersze do usunięcia

W efekcie widoczne będą tylko wiersze, w których znajduje się słowo Duplikat.

10. Zaznacz widoczne dane i z menu Edycja wybierz polecenie Usuń wiersz.
11. W oknie komunikatu, który się pojawi, wybierz odpowiedź twierdzącą.
12. Teraz rozwiń listę z komórki B1 i wybierz pozycję (Wszystkie).
13. Na koniec wyłącz Autofiltr (Dane/Filtr/Autofiltr).

Rys. 4. Lista bez powtórzeń

Przedstawione rozwiązanie okazuje się wyjątkowo przydatne, gdy potrzebujesz usunąć duplikaty z listy obejmującej wiele tysięcy wierszy. Musisz jednak zawsze pamiętać o tym, aby przed uruchomieniem makra posortować listę.