Obsah
Odstráňte prázdne riadky
Očividným spôsobom, ako odstrániť prázdne riadky z množiny údajov, je jednoducho triediť údaje. Tým sa prázdne riadky presunú do spodnej časti údajov a „odstránia“ ich. Ale čo keď chcete odstrániť prázdne riadky, ale nechcete, aby boli údaje zoradené? VBA.
Nasledujúce makro odstráni prázdne riadky bez akéhokoľvek triedenia (vypnutie aktualizácie obrazovky bude rýchlejšie).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row to 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Then ActiveSheet.Rows (x) .Delete End Ak Next End With End Sub
