Satura rādītājs
Dzēst tukšās rindas
Acīmredzams veids, kā no datu kopas noņemt tukšas rindas, ir vienkārši kārtot datus. Tādējādi tukšās rindas tiek pārvietotas uz datu apakšdaļu un “noņemtas”. Bet ko darīt, ja vēlaties noņemt tukšās rindas, taču nevēlaties, lai dati tiktu sakārtoti? VBA.
Šis makro noņems tukšās rindas bez kārtošanas (izslēdziet ekrāna atjaunināšanu, lai tā notiktu ātrāk).
Sub DeleteBlankRows () Dim x tik ilgi, kamēr ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell). Rinda līdz 1. darbībai -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Tad ActiveSheet.Rows (x). Ja nākamais beidzas ar beigu apakš