Изтриване на празни редове в Excel

За да изтрием празни редове в определена област в Excel, може да се използва следващия код на VBA. Той съдържа цикъл For Next . Макросът брои редовете в селектираната област, за да се разбере кога да спре цикъла.

 

Sub DelEmptyRow()

Rng = Selection.Rows.Count

ActiveCell.Offset(0, 0).Select

Application.ScreenUpdating = False

For i = 1 To Rng

If ActiveCell.Value = “” Then   ‘Може да замените “” с 0, за да изтриете редовете, които са празни

Selection.EntireRow.Delete

Else ActiveCell.Offset(1, 0).Select

End If

Next i

Application.ScreenUpdating = True

End Sub

Кодът “Application.ScreenUpdating = False” предотвратява обновяването на екрана. Това спомага за по-бързото изпълнение на макроса и екрана не трепери. Не забравяйте да го промените на ”True” след края на цикъла.

Тези и други инструкции и насоки за програмиране в Excel чрез използване на програмния език Visual Basic for Applications (VBA) ще научите от курса Excel 2007 Introduction to VBA, който ще се проведе на 1 и 2 юни 2010г. в учебния център на Ню Хърайзънс България.