Automatyczne usuwanie pustych wierszy

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 wiersze

Aby 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