Sisällysluettelo
Poista tyhjät rivit
Ilmeinen tapa poistaa tyhjät rivit tietojoukosta on yksinkertaisesti lajitella tiedot. Tämä siirtää tyhjät rivit tietojen alareunaan ja “poistaa” ne. Mutta entä jos haluat tyhjät rivit poistaa, mutta et halua lajitella tietoja? VBA.
Seuraava makro poistaa tyhjät rivit ilman lajittelua (sammuta näytön päivitys nopeammin).
Sub DeleteBlankRows () Dim x niin kauan kuin ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row to 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 then ActiveSheet.Rows (x). Jos seuraava loppu End Sub