0

Макрос для удаления пустых строк в Excel

Файл  -> Параметры -> Настойки ленты -> поставить галочку «Разработчик».

После этого в меню появится дополнительная закладка Разработчик, на которой есть кнопа «Макросы». Заходим, вставляем нижеприведенный текст, запускаем.

После этого все пустые строки на листе 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

Поделиться с друзьями с соц.сетях :
Добавлено в: Без рубрики Метки: 

Последние записи

Закладки и Отметки

© 2024 Территория Beyondd. Все права защищены. .
Powered By Wordpress Hackz.