Как удалить пустые столбцы с заголовками в 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. Затем нажмите кнопку ОК, и только пустые столбцы будут удалены сразу. См. скриншот:
Советы: С помощью этой мощной функции вы также можете удалять пустые строки, видимые столбцы или строки, скрытые столбцы или строки по мере необходимости.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек