Как быстро удалить несколько пустых столбцов в Excel?
Иногда, когда вы импортируете данные в Microsoft Excel из какого-либо источника, такого как веб-страница, CSV, текст и т. Д., С ними может быть много пустых столбцов. Удаление каждого пустого столбца по одному должно занимать много времени. Поэтому некоторые из нас ищут простые способы решения этой проблемы. В этой статье собраны несколько хитрых советов, которые помогут вам быстро удалить несколько пустых столбцов.
Удалить несколько пустых столбцов на листе с формулой
Удалить несколько пустых столбцов на листе с кодом VBA
Удалите несколько пустых столбцов с заголовком с помощью кода VBA
Удалить несколько пустых столбцов на листе с формулой
В Excel вы можете применить формулу, чтобы определить, пусты ли столбцы или нет, а затем использовать Сортировать возможность отсортировать все пустые столбцы вместе, а затем удалить их сразу. Пожалуйста, сделайте так:
1. Добавьте новую строку вверху диапазона данных, см. Снимок экрана:
2. Затем введите приведенную ниже формулу в ячейку A1, а затем перетащите маркер заполнения вправо, чтобы применить эту формулу к другим ячейкам, будет отображаться ИСТИНА, если столбец пуст, в противном случае отображается ЛОЖЬ, см. Снимок экрана:
3. Затем выберите диапазон данных, включая вспомогательную строку, и нажмите Данные > Сортировать, см. снимок экрана:
4. В выскочившем Сортировать диалоговое окно, нажмите Возможности кнопку, в следующем Параметры сортировки диалоговое окно, выберите Сортировать слева направо вариант, см. скриншоты:
![]() | ![]() | ![]() |
5. Нажмите OK кнопку, чтобы вернуть Сортировать диалога, затем выберите Ряд 1 из Сортировать по: раскрывающийся список и выберите Значения ячеек от Сортировать по раздел, выбрать От наибольшего к наименьшему из Оформить заказ раздел, см. снимок экрана:
6. Затем все пустые столбцы были отсортированы слева от ваших данных, и теперь вам просто нужно выбрать все столбцы, а затем щелкнуть правой кнопкой мыши и выбрать Удалить чтобы сразу удалить эти пустые столбцы, см. снимок экрана:
Удалить несколько пустых столбцов на листе с кодом VBA
Если вы хотите использовать макрос VBA, все идет намного проще. Следующий код VBA может вам помочь, сделайте следующее:
1. Удерживайте другой + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.
Код VBA: удалить несколько пустых столбцов при выборе:
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3, нажмите F5 Чтобы запустить этот макрос, выберите нужный рабочий диапазон во всплывающем диалоговом окне. Смотрите скриншот:
4. Нажмите OK, то все пустые столбцы в выделении удаляются. Смотрите скриншот:
Удалите несколько пустых столбцов в выделенном / активном листе / всей книге с помощью полезной функции
Команда Удалить скрытые (видимые) строки и столбцы полезности 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
- Если у вас есть большая книга с большим количеством скрытых строк и столбцов, и теперь скрытые данные недоступны, вы хотите удалить их все. Как можно было их быстро удалить?
- Удалить все изображения или другие объекты в Excel
- Если вы хотите удалить все изображения из Microsoft Excel, выбор каждого изображения и удаление их по одному может занять много времени. Следующие приемы могут облегчить вам работу по удалению всех изображений.
- Удалить строки на основе цвета фона в Excel
- Как можно удалить целые строки в зависимости от цвета фона? В этом примере мне нужно удалить все строки, ячейки которых заполнены синим цветом фона, как показано на следующем снимке экрана. В этой статье вы получите несколько кодов для выполнения этой задачи в Excel.
- Удалить все строки, содержащие определенный текст, в столбце в Google Таблицах
- Предположим, у вас есть диапазон данных в листе Google, и теперь вы хотите удалить строки на основе значений ячеек в столбце. Например, я хочу удалить все строки, содержащие текст «Завершено» в столбце C. В этой статье я расскажу о том, как решить эту проблему в таблицах Google.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!