Удаление всех пустых строк/столбцов на листе

Те, кто работал с большими таблицами, уже сталкивались, наверное, в своей работе с тем, что пустые строки и столбцы Microsoft Excel воспринимает как разрывы в данных, что создает потом массу мелких и не очень проблем.

Этот инструмент из надстройки PLEX может быстро удалить на текущем листе все пустые строки или столбцы в одно касание.

Также весьма часто встречается другой сценарий: вы отфильтровали с помощью фильтра нужные вам строки и хотите быстро избавиться от остальных. Для этого пригодится команда Удалить скрытые фильтром строки.

Полный список всех инструментов надстройки PLEX



favor favor

14.09.2021 12:08:42

Удаление всех пустых строк/столбцов на листе
В вашем случае эта функция работает, когда нет заголовков. Однако, часто в рабочем файле они присутствуют и пустых колок тогда нет.
К примеру мой исходный файл содержит несколько десятков или сотен строк и 1800 колонок с заголовками в 1 строке. А рабочий диапазон составляет 10 - 20 колонок раскиданных по всему листу.
Спасает меня в этом случае штука, которой у вас нет в надстройке:

Sub HideColumn()        Dim LastColumn As Long, nColumn As Long          LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count     If LastColumn = 1 Then Exit Sub          For nColumn = LastColumn To 1 Step -1         If Cells(Rows.Count, nColumn).End(xlUp).Row = 1 Then Columns(nColumn).EntireColumn.Hidden = True     Next End Sub

Возможно, вы смогли бы добавить в имеющийся у вас вариант опцию выбора настройки:  "Игнорировать 1 строку" - ДА; НЕТ.

Ссылка