Sadržaj
Izbrišite prazne redove
Očiti način uklanjanja praznih redaka iz skupa podataka je jednostavno sortiranje podataka. Ovo pomiče prazne retke na dno podataka i "uklanja ih". No što ako želite ukloniti prazne retke, no ne želite sortiranje podataka? VBA.
Sljedeći makro uklonit će prazne retke bez ikakvog razvrstavanja (isključite ažuriranje zaslona da biste brže prošli).
Sub DeleteBlankRows () Dim x As Long with ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Zatim ActiveSheet.Rows (x). Izbriši kraj Ako Sljedeći završi s Kraj Sub
