Prowadzisz rejestr wyprzedaży sprzętu komputerowego ze wszystkich oddziałów Twojej firmy. Na bieżąco usuwasz z listy sprzedane peryferia komputerowe. Chciałbyś teraz przygotować wstępny raport podsumowujący do przedstawienia szefowi, jednak w pierwszej kolejności powinieneś go uporządkować. Lista obejmuje obecnie około tysiąca pozycji, z czego połowa to puste wiersze. Jak myślisz, ile czasu potrzebujesz na ich usunięcie? Korzystając z naszego triku – dosłownie kilka sekund!
Rys. 1. Fragment listy zawierającej niepotrzebne puste wierszeAby automatycznie usunąć puste wiersze, możesz posłużyć się makrem:
1. Otwórz Edytor VBA, wybierając polecenie Narzędzia/Makro/Edytor Visual Basic lub korzystając ze skrótu klawiaturowego Alt + F11.
2. Wstaw nowy moduł poleceniem Insert/Module i wpisz kod z rysunku 2.
Rys. 2. Makro usuwające puste wiersze
Wskazówka
Zaprezentowane makro rozpoczyna sprawdzanie i usuwanie pustych wierszy, począwszy od czwartego. Jeśli chcesz to zmienić, odpowiednio zmodyfikuj w nim wpis: For i = 4
3. Zapisz i zamknij Edytor VBA.
4. Wybierz polecenie Narzędzia/Makro/Makra..., wskaż na liście wyczysc_puste_wiersze i kliknij Uruchom.
Żądany efekt uzyskasz błyskawicznie.

Rys. 3. Uporządkowana lista