Съдържание
Изтриване на празни редове
Очевидният начин да премахнете празни редове от набор от данни е просто да сортирате данните. Това премества празните редове в долната част на данните и ги „премахва“. Но какво ще стане, ако искате празни редове да бъдат премахнати, но не искате да сортирате данните? VBA.
Следният макрос ще премахне празни редове без никакво сортиране (изключете актуализирането на екрана, за да стане по -бързо).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Тогава ActiveSheet.Rows (x). Ако следващ край с край под