Turinys
Ištrinti tuščias eilutes
Akivaizdus būdas pašalinti tuščias eilutes iš duomenų rinkinio yra tiesiog rūšiuoti duomenis. Tuščios eilutės perkeliamos į duomenų apačią ir „pašalinamos“. Bet ką daryti, jei norite pašalinti tuščias eilutes, tačiau nenorite, kad duomenys būtų rūšiuojami? VBA.
Ši makrokomanda pašalins tuščias eilutes be rūšiavimo (išjunkite ekrano atnaujinimą, kad jis vyktų greičiau).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell). Eilė į 1 veiksmą -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Tada ActiveSheet.Rows (x). Jei kita pabaiga su pabaiga Sub
