Automatyczne usuwanie niepotrzebnych pustych wierszy
W arkuszu prowadzisz ewidencję pracowników tymczasowych. Dane osób, które zakończyły współpracę z Twoją firmą, są usuwane z komórek. Niestety to powoduje nieporządek w zestawieniu i trudności w analizowaniu danych. Jeśli pustych wierszy byłoby kilka bądź kilkanaście, to mógłbyś je usunąć ręcznie. W przypadku gdy będzie ich dużo więcej, zadanie zrobi się niezwykle pracochłonne. Okazuje się, że wcale nie musi tak być, jeżeli zastosujesz proste makro.
Rys. 1. Przykładowy rejestr
Proponowane makro będzie sprawdzało, czy w komórce kolumny B znajduje się wpis. Jeżeli nie, cały wiersz zostanie usunięty.
=> Aby je przygotować:
1. Z menu Narzędzia wybierz polecenie Makro/Edytor Visual Basic. Możesz także skorzystać z kombinacji klawiszy lewy Alt + F11. Otworzy się Edytor VBA.
2. Z menu Insert wybierz polecenie Module.
3. Do okna kodu po prawej wpisz kod przedstawiony na rysunku 2.
Rys. 2. Makro usuwające niepotrzebne puste wiersze
4. Zapisz i zamknij Edytor VBA.
Makro jest gotowe i możesz je uruchomić.
=> W tym celu:
5. Z menu Narzędzia wybierz polecenie Makro/Makra lub wciśnij kombinację klawiszy lewy Alt + F8.
6. Na liście makr zaznacz usuwanie_pustych_wierszy i kliknij przycisk Uruchom.
Rys. 3. Puste wiersze zostały usunięte
Wskazówka
- Makro rozpoczyna poszukiwanie arkusza od 2. wiersza. Jeżeli przykładowo Twoje dane zaczynają się od 3. wiersza, zmodyfikuj pierwszą linię makra w następujący sposób:
For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1
- Jeśli chcesz, aby makro sprawdzało inną kolumnę, np. C, zmień drugą linię makra w taki sposób:
If Cells(i, "C").Value = "" Then
Zaprezentowane narzędzie może Ci oszczędzić mnóstwo czasu przy porządkowaniu zestawień. Jeśli znowu pojawią się w Twoim roboczym zestawieniu puste wiersze, po prostu ponownie uruchom makro. Możesz z niego korzystać dowolną liczbę razy.