Как удалить пустые столбцы с заголовками в Excel?

Если у вас есть большая таблица, содержащая несколько столбцов, но некоторые из них содержат только заголовок, и теперь вы хотите удалить эти пустые столбцы, содержащие только заголовки, чтобы получить результат, как на скриншоте ниже. Можно ли это сделать быстро и легко в Excel?

Удаление пустых столбцов с заголовком с помощью кода VBA

Удаление нескольких пустых столбцов в диапазоне / листе / книге с помощью Kutools для Excel

Удаление пустых столбцов с заголовком с помощью кода VBA

В Excel нет прямого метода для выполнения этой задачи, кроме как удалять их по одному вручную, но здесь я могу предложить вам код, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, затем откроется окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Удаление пустых столбцов с заголовком:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank columns with only headers are deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится всплывающее окно, которое напомнит вам, что пустые столбцы с заголовками будут удалены.

4. Нажмите OK, и все пустые столбцы с заголовками в текущем листе будут удалены сразу.

Примечание: Если есть пустые столбцы, они также будут удалены.

Удаление нескольких пустых столбцов в диапазоне / листе / книге с помощью Kutools для Excel

Иногда вам нужно просто удалить пустые столбцы, и утилита Kutools для Excel «Удалить скрытые (видимые) строки и столбцы» поможет вам легко выполнить эту задачу.

После установки Kutools для Excel выполните следующие действия:

1. Выберите диапазон столбцов, который включает пустые столбцы, подлежащие удалению.

2. Затем щелкните Kutools > Удалить > Удалить скрытые (видимые) строки и столбцы, см. скриншот:

3. В диалоговом окне «Удалить скрытые (видимые) строки и столбцы» вы можете выбрать область удаления из выпадающего списка «Искать в», выбрать Столбцы в разделе Тип удаления, а затем выбрать Пустые столбцы из раздела Подробный тип, см. скриншот:

4. Затем нажмите кнопку ОК, и только пустые столбцы будут удалены сразу. См. скриншот:

Советы: С помощью этой мощной функции вы также можете удалять пустые строки, видимые столбцы или строки, скрытые столбцы или строки по мере необходимости.