Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

doc удалять пустые столбцы с заголовком 1

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

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


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


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

1. Удерживая нажатой ALT + F11 , то он открывает Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub Macro1()
'updateby Extendoffice 20160616
    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 чтобы запустить этот код, и появится окно подсказки, чтобы напомнить вам, что пустые столбцы с заголовком будут удалены, см. снимок экрана:

doc удалять пустые столбцы с заголовком 2

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

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


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

После установки Kutools for Excel, сделайте следующее:

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

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

doc удалять пустые столбцы с заголовком 3

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

doc удалять пустые столбцы с заголовком 4

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

doc удалять пустые столбцы с заголовком 5

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

Нажмите Скачать Kutools для Excel сейчас!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kim · 1 years ago
    OMG, this is genius!!! thank you
  • To post as a guest, your comment is unpublished.
    Roger · 3 years ago
    Hi,

    Thanks for the nice code above.
    Is it free to use?