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

Работа с большими таблицами часто превращается в хаос из-за лишних пустых пространств. Если вам нужно быстро очистить структуру, ручное удаление займет вечность. Особенно это актуально, когда вы уже изучили, как собрать данные с нескольких листов Excel, и теперь приводите финальный отчет в порядок.

Видеоинструкция

Способ 1. Быстрое удаление во всей книге с помощью VBA-макроса

Самый эффективный метод очистить сразу все листы в книге — использовать простой макрос. Вам не придется вручную перебирать каждую вкладку.

Sub DeleteEmptyColumnsWorkbook()
    Dim ws As Worksheet
    Dim col As Long
    For Each ws In ActiveWorkbook.Worksheets
        For col = ws.UsedRange.Columns.Count To 1 Step -1
            If WorksheetFunction.CountA(ws.Columns(col)) = 0 Then
                ws.Columns(col).Delete
            End If
        Next col
    Next ws
End Sub

Способ 2. Удаление на одном листе через «Перейти к специальной группе»

Если макросы использовать нельзя, можно быстро очистить активный лист встроенными инструментами.

Частые ошибки / Устранение неполадок

• Столбец выглядит пустым, но не удаляется: Часто в ячейках содержатся невидимые символы (пробелы, неразрывные пробелы или формулы, возвращающие пустую строку). В таких случаях функция считает ячейку заполненной. О том, как невидимые символы мешают расчетам, читайте в статье: Почему функция ДЛСТР не работает с числами в Excel.
• Ошибка при запуске макроса: Убедитесь, что книга не защищена от изменений. Снимите защиту с листов перед запуском кода.