Note: The other languages of the website are Google-translated. Back to English

Как быстро удалить несколько пустых столбцов в Excel?

Иногда, когда вы импортируете данные в Microsoft Excel из какого-либо источника, такого как веб-страница, CSV, текст и т. Д., С ними может быть много пустых столбцов. Удаление каждого пустого столбца по одному должно занимать много времени. Поэтому некоторые из нас ищут простые способы решения этой проблемы. В этой статье собраны несколько хитрых советов, которые помогут вам быстро удалить несколько пустых столбцов.

Удалить несколько пустых столбцов на листе с формулой

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

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

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


Удалить несколько пустых столбцов на листе с формулой

В Excel вы можете применить формулу, чтобы определить, пусты ли столбцы или нет, а затем использовать Сортировать возможность отсортировать все пустые столбцы вместе, а затем удалить их сразу. Пожалуйста, сделайте так:

1. Добавьте новую строку вверху диапазона данных, см. Снимок экрана:

2. Затем введите приведенную ниже формулу в ячейку A1, а затем перетащите маркер заполнения вправо, чтобы применить эту формулу к другим ячейкам, будет отображаться ИСТИНА, если столбец пуст, в противном случае отображается ЛОЖЬ, см. Снимок экрана:

=COUNTA(A2:A1048576)=0

3. Затем выберите диапазон данных, включая вспомогательную строку, и нажмите Данные > Сортировать, см. снимок экрана:

4. В выскочившем Сортировать диалоговое окно, нажмите Опции кнопку, в следующем Параметры сортировки диалоговое окно, выберите Сортировать слева направо вариант, см. скриншоты:

5. Нажмите OK кнопку, чтобы вернуть Сортировать диалога, затем выберите Ряд 1 из Сортировать по: раскрывающийся список и выберите Значения ячеек от Сортировать по раздел, выбрать От наибольшего к наименьшему из Оформить заказ раздел, см. снимок экрана:

6. Затем все пустые столбцы были отсортированы слева от ваших данных, и теперь вам просто нужно выбрать все столбцы, а затем щелкнуть правой кнопкой мыши и выбрать Удалить чтобы сразу удалить эти пустые столбцы, см. снимок экрана:


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

Если вы хотите использовать макрос VBA, все идет намного проще. Следующий код VBA может вам помочь, сделайте следующее:

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

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Код VBA: удалить несколько пустых столбцов при выборе:

Sub DeleteEmptyColumns () 'Обновление Extendoffice
Dim rng As Range Dim InputRng As Range xTitleId = "KutoolsforExcel" Установить InputRng = Application.Selection Установить InputRng = Application.InputBox ("Диапазон:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Шаг -1 Установите rng = InputRng.Cells (1, i) .EntireColumn, если Application.WorksheetFunction.CountA (rng) = 0, затем rng.Delete End If Next Application.ScreenUpdating = True End Sub

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

4. Нажмите OK, то все пустые столбцы в выделении удаляются. Смотрите скриншот:


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

Компания Удалить скрытые (видимые) строки и столбцы полезности Kutools for Excel может помочь вам быстро удалить сразу несколько пустых строк или столбцов.

Советы:Чтобы применить это Удалить скрытые (видимые) строки и столбцы функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

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

1. Нажмите Кутулс > Удалить > Удалить скрытые (видимые) строки и столбцы, см. снимок экрана:

2. В Удалить скрытые (видимые) строки и столбцы диалоговом окне укажите область, в которой вы хотите применить операцию из Заглянуть раскрывающийся список. (Если вы выберете В выбранном диапазоне, вы должны сначала выбрать диапазон, который хотите использовать.) А затем отметьте Колонны под Удалить тип, И выберите Пустые столбцы от Подробный тип. Смотрите скриншот:

3. Затем нажмите OK. И пустые столбцы были удалены из выбранного диапазона. Смотрите скриншот:


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

Иногда вам может потребоваться удалить все пустые столбцы, которые содержат только заголовок на листе, следующий код VBA может оказать вам услугу, выполните следующие действия:

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

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

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

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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. Затем нажмите кнопку ОК. Все пустые столбцы с одним заголовком на текущем листе удаляются сразу. Смотрите скриншоты:


Больше относительных статей:

  • Удалить все изображения или другие объекты в Excel
  • Если вы хотите удалить все изображения из Microsoft Excel, выбор каждого изображения и удаление их по одному может занять много времени. Следующие приемы могут облегчить вам работу по удалению всех изображений.
  • Удалить строки на основе цвета фона в Excel
  • Как можно удалить целые строки в зависимости от цвета фона? В этом примере мне нужно удалить все строки, ячейки которых заполнены синим цветом фона, как показано на следующем снимке экрана. В этой статье вы получите несколько кодов для выполнения этой задачи в Excel.


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно

Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я обнаружил, что гораздо проще перейти к строке после моей последней строки данных, ввести «Shift-Ctrl-End», чтобы выделить все последующие пустые строки (намного быстрее), щелкнуть правой кнопкой мыши и ввести «удалить все строки/столбцы». Система не тратила так много времени на поиск таким образом, поэтому она была чистой в мгновение ока, а файлы размером 20 МБ были сброшены до размера 20 КБ.
Этот комментарий был сведен к минимуму модератором на сайте
приведенные выше детали очень полезны для моего личного использования. Спасибо за ваше руководство. М.КАРТИКЕЯН :-)
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезная страница. Спасибо. :-) Моя проблема в том, что у меня есть столбцы с заголовками, но нет данных в этом столбце. Присутствует только заголовок. Как можно удалить столбцы, в которых нет данных, но есть заголовок? :о
Этот комментарий был сведен к минимуму модератором на сайте
Привет, то, что вы упомянули, очень полезно. Мне нужна небольшая помощь с вашей стороны. Ежедневно загружаю какие-то файлы и с помощью Pivot готовлю отчеты. Для меня это ежедневная задача и рутинный процесс. Как я могу сделать это без использования Pivot. Пример: если я подготовил отчеты вчера в файле «A» Excel. На следующий день в файле Excel «A» я просто заменяю новые данные файла Excel «B». При этом автоматически будет создаваться отчет? Является ли это возможным?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, может ли кто-нибудь подсказать, как я могу удалить пустые ячейки в строке или столбце... обратите внимание на весь пустой столбец или строки... только пустую ячейку, которую мне нужно удалить в столбце
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,


попробуйте реализовать код ниже
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, это очень полезная страница с базовой опцией Excel :)
Этот комментарий был сведен к минимуму модератором на сайте
Он удалил все мои имена в колонке имени! Ого!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL