Lang L: none (table-of-contents)
Kustuta tühjad read
Ilmselge viis tühjade ridade eemaldamiseks andmekogumist on andmete sortimine. See nihutab tühjad read andmete põhja ja “eemaldab” need. Aga mis siis, kui soovite tühjad read eemaldada, kuid te ei soovi andmeid sortida? VBA.
Järgmine makro eemaldab tühjad read ilma sorteerimiseta (kiiremaks muutmiseks lülitage ekraani värskendamine välja).
Sub DeleteBlankRows () Dim x nii kaua, kui ActiveSheet jaoks x = .Cells.SpecialCells (xlCellTypeLastCell). Rida kuni 1. sammu -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Siis ActiveSheet.Rows (x). Kustuta lõpp Kui järgmine lõpeb lõpuga Sub
