Izbriši prazne vrstice - primeri kode VBA

Izbrišite prazne vrstice

Očiten način za odstranitev praznih vrstic iz nabora podatkov je preprosto razvrščanje podatkov. S tem se prazne vrstice premaknejo na dno podatkov in jih »odstranijo«. Kaj pa, če želite odstraniti prazne vrstice, vendar ne želite razvrstiti podatkov? VBA.

Naslednji makro bo odstranil prazne vrstice brez razvrščanja (za hitrejše izklop posodobitve zaslona).

Sub DeleteBlankRows () Dim x As Long with ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Potem ActiveSheet.Rows (x). Izbriši konec Če se naslednji konča s končnico Sub
wave wave wave wave wave