Як видалити порожні стовпці із заголовком у Excel?

Якщо у вас є великий аркуш, який містить кілька стовпців, але деякі з них містять лише заголовок, і тепер ви хочете видалити ці порожні стовпці, які мають лише заголовок, щоб отримати наступний знімок екрана. Чи можна це швидко і легко вирішити в Excel?

Видаліть порожні стовпці заголовком за допомогою коду VBA

Видаліть кілька порожніх стовпців у діапазоні/аркуші/книзі за допомогою Kutools для Excel

Видаліть порожні стовпці заголовком за допомогою коду VBA

В Excel немає прямого методу вирішення цієї роботи, за винятком видалення їх по одному вручну, але тут я можу ввести вам код, будь ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 клавіші, потім відкриється Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 and column(s) with only a header row have now been 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. Потім натисніть Кутулс > видаляти > Видалити приховані (видимі) рядки та стовпці, див. скріншот:

3, в Видалити приховані (видимі) рядки та стовпці діалоговому вікні, ви можете вибрати область видалення зі спадного списку Шукати, коли вам потрібно, виберіть Колони від Тип видалення розділ, а потім виберіть Пусті стовпці від Детальний тип розділ, див. знімок екрана:

4. Потім натисніть Ok і відразу видаляються лише порожні стовпці. Дивіться знімок екрана:

Поради: Завдяки цій потужній функції ви також можете видаляти порожні рядки, видимі стовпці або рядки, приховані стовпці або рядки, як вам потрібно.

Натисніть Безкоштовно завантажити Kutools для Excel зараз!