Как удалить все пустые строки в таблице Excel

Для удаления пустых строк в таблице Excel необходимо уметь написать простой макрос. Макрос это последовательность операций, выполняемых для достижения поставленных целей специальными средствами. На самом деле это не сложно, особенно, когда имеется в наличии код для выполнения операции. С помощью макроса произойдет анализ всей таблицы, где есть пустые строки, и их удаление, за секунды в автоматическом режиме.

Алгоритм действий по удалению пустых строк в таблице Excel:

      1. Нажать в табличном редакторе Excel  комбинацию клавиш Alt+F11;
      2. В открывшемся окне редактора Visual Basic выбрать в меню Insert — Module и в появившийся пустой модуль вставить следующие строки:

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

3.Закрыть редактор и вернуться в Excel к таблице, содержащей пустые строки.

4. Нажать Alt+F8 . В открывшемся окне будут перечислены все доступные в данный момент для запуска макросы, в том числе только что созданный макрос DeleteEmptyRows.

5. Выберать макрос из п.4 и нажать кнопку Выполнить — все пустые строки на листе будут удалены.

 

Для ввода команд и формирования программы, т.е. создания макроса необходимо открыть специальное окно — редактор программ на VBA, встроенный в Microsoft Excel.

  • В старых версиях (Excel 2003 и старше) для этого идем в меню Сервис — Макрос — Редактор Visual Basic .
  • В новых версиях (Excel 2007 и новее) для этого нужно сначала отобразить вкладку Разработчик . Выбираем Файл — Параметры — Настройка ленты и включаем в правой части окна флажок Разработчик . Теперь на появившейся вкладке нам будут доступны основные инструменты для работы с макросами, в том числе и нужная нам кнопка Редактор Visual Basic 

    macro1.png:

 

 




coded by nessus

Обсуждение: оставлено 5 коммент.

  1. Aleksei:

    Супер! Спасибо большое.
    А как бы еще понять, откуда вдруг в файле могли появиться эти пустые строки? На двух листах вдруг стало по более чем миллиону строк, размер файла вырос до 300Mb.
    Если просто тупо выделить Shift+CTRL+End и потом удалить — то что-то там удаляется долго, но строки все равно не пропадают. В вот макрос ваш помог.

    Ответить
    1. adminccinet:

       Отлично, что помог! Так глубоко (откуда берутся пустые строки) я ответить не могу.

      Ответить
    2. О:

      После удаления строк до 65535-й вручную, не смотря на то, что строки не пропали, надо было сохранить книгу, закрыть эксель и снова открыть.

      Ответить
  2. Василий:

    гениально! спасибо огромнейшее! :mrgreen:

    Ответить
  3. Kristina:

    Это гениально!!!!!ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    Ответить

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

© 2017 Компьютерные курсы в Интернете ·  Дизайн и техподдержка: Goodwinpress.ru