Excel VBA: Makro do automatycznego usuwania pustych wierszy z danych

🔍 Co robi to makro?

To makro przeszukuje aktywny arkusz i usuwa wszystkie całkowicie puste wiersze. Jest idealne do czyszczenia danych po imporcie, scalaniu różnych plików lub kopiowaniu zawartości z Internetu.

📋 Kod VBA: każda linia od nowego wiersza

Sub UsunPusteWiersze()
  Dim ws As Worksheet
  Dim i As Long
  Set ws = ActiveSheet

  Application.ScreenUpdating = False

  For i = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
      ws.Rows(i).Delete
    End If
  Next i

  Application.ScreenUpdating = True

  MsgBox "Usunięto wszystkie puste wiersze.", vbInformation
End Sub

🛠️ Jak działa to makro?

1. Makro działa na aktywnym arkuszu.
2. Przeszukuje wszystkie wiersze od dołu do góry (żeby nie pomijać żadnych po usunięciu).
3. Sprawdza, czy wiersz jest całkowicie pusty.
4. Jeśli tak – usuwa go.

💡 Co możesz zmienić?

• Możesz ograniczyć działanie makra tylko do zakresu (np. A1:G1000).
• Możesz dodać warunek, aby usuwać tylko puste wiersze w konkretnej kolumnie.

✅ Podsumowanie

To makro to szybki sposób na oczyszczenie danych w Excelu bez ręcznego zaznaczania i kasowania pustych wierszy. Niezastąpione przy pracy z dużymi plikami importowanymi z zewnętrznych źródeł lub przygotowywaniu danych do analizy.