Spisie treści
Usuń puste wiersze
Oczywistym sposobem usunięcia pustych wierszy z zestawu danych jest po prostu sortowanie danych. Przenosi to puste wiersze na dół danych i „usuwa” je. Ale co, jeśli chcesz usunąć puste wiersze, ale nie chcesz sortować danych? VBA.
Poniższe makro usunie puste wiersze bez żadnego sortowania (wyłącz aktualizację ekranu, aby przyspieszyć).
Sub DeleteBlankRows() Dim x tak długo z ActiveSheet For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If WorksheetFunction.CountA(.Rows(x)) = 0 Następnie ActiveSheet.Rows(x).Delete End Jeśli następny koniec z końcem Sub
