Как удалить пустые столбцы с заголовками в Excel?
Если у вас большой лист, содержащий множество столбцов, но некоторые из них содержат только заголовок, и вы хотите удалить эти пустые столбцы, чтобы получить результат, показанный на следующем снимке экрана. Можно ли быстро и легко решить эту задачу в Excel?
Удаление пустых столбцов с заголовком с помощью кода VBA
Удаление нескольких пустых столбцов в диапазоне / листе / книге с помощью Kutools для Excel
Удаление пустых столбцов с заголовком с помощью кода VBA
В Excel нет прямого способа выполнить эту задачу — остаётся только удалять столбцы вручную, по одному. Однако я могу предложить вам решение в виде кода. Следуйте инструкциям:
1.Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
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’s Удалить скрытые строки/столбцы поможет вам легко справиться с этой задачей.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазон столбцов, включая пустые столбцы, которые нужно удалить.
2. Затем нажмите Kutools > Удалить > Удалить скрытые строки/столбцы, см. снимок экрана:
3. В диалоговом окне Удалить скрытые строки/столбцы выберите область удаления из раскрывающегося списка «Искать в», отметьте Столбцы в разделе Тип удаления, а затем выберите Пустые столбцы в разделе Подробный тип. См. снимок экрана:
4. Затем нажмите кнопку Ok, и пустые столбцы будут удалены сразу. См. снимок экрана:
Советы: Благодаря этой мощной функции вы можете удалять пустые строки, а также видимые или скрытые столбцы и строки — в зависимости от ваших задач.
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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек