Ștergeți rândurile goale - Exemple de cod VBA

Ștergeți rândurile goale

Modul evident de a elimina rândurile goale dintr-un set de date este pur și simplu să sortați datele. Aceasta mută rândurile goale în partea de jos a datelor și le „elimină”. Dar dacă doriți ca rândurile goale să fie eliminate, totuși nu doriți ca datele să fie sortate? VBA.

Următoarea macrocomandă va elimina rândurile goale fără nicio sortare (dezactivați actualizarea ecranului pentru a merge mai repede).

Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell). Row to 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Apoi ActiveSheet.Rows (x). Ștergeți End Dacă următorul se termină cu sfârșitul Sub

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave