Excel VBA: Makro do automatycznego usuwania pustych wierszy z arkusza danych

🔍 Co robi to makro?

To makro automatycznie usuwa wszystkie puste wiersze z określonego zakresu danych w arkuszu Excela. Jest to bardzo przydatne, gdy masz importowane lub ręcznie wpisywane dane z pustymi liniami pomiędzy rekordami.

📋 Krok po kroku: Makro VBA z opisem

' Rozpoczęcie makra
Sub UsunPusteWiersze()

  ' Zmienna do przechowywania ostatniego wiersza
  Dim lastRow As Long
  Dim i As Long

  ' Ustalamy ostatni wiersz w kolumnie A
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row

  ' Przechodzimy od dołu do góry, aby nie pominąć wierszy przy usuwaniu
  For i = lastRow To 1 Step -1
    If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
      Rows(i).Delete
    End If
  Next i

  MsgBox "Puste wiersze zostały usunięte!", vbInformation
End Sub

🛠️ Jak użyć tego makra?

1. Otwórz Excela i naciśnij ALT + F11, aby wejść do edytora VBA.
2. W menu Wstaw → Moduł wklej powyższy kod.
3. Upewnij się, że dane znajdują się w kolumnie A lub dalej (A, B, C...), a puste wiersze są naprawdę puste.
4. Uruchom makro UsunPusteWiersze. Wszystkie puste linie w arkuszu zostaną usunięte.

✅ Podsumowanie

To proste makro pozwala szybko oczyścić dane z pustych wierszy, co jest szczególnie przydatne przed analizą, sortowaniem lub importem danych do baz lub innych narzędzi.