Файл -> Параметры -> Настойки ленты -> поставить галочку «Разработчик».
После этого в меню появится дополнительная закладка Разработчик, на которой есть кнопа «Макросы». Заходим, вставляем нижеприведенный текст, запускаем.
После этого все пустые строки на листе Excel будут удалены (удаляет только на том листе, который открыт).
Текст макроса:
Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row — 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
