Как быстро удалить несколько пустых столбцов в Excel?
При импорте данных в Microsoft Excel с веб-страниц, из CSV-, текстовых и других файлов часто появляются лишние пустые столбцы. Удаление каждого вручную — долгий и утомительный процесс. Именно поэтому многие пользователи ищут быстрые и простые решения этой задачи. В этой статье вы найдёте полезные советы, которые помогут мгновенно удалить сразу несколько пустых столбцов.
Удаление нескольких пустых столбцов на листе с помощью формулы
Удаление нескольких пустых столбцов на листе с помощью кода VBA
Удаление нескольких пустых столбцов с заголовком с помощью кода VBA
Удаление нескольких пустых столбцов на листе с помощью формулы
В Excel вы можете использовать формулу для определения пустых столбцов, а затем применить сортировку, чтобы собрать все пустые столбцы вместе и удалить их одновременно. Выполните следующие действия:
1. Добавьте новую строку в верхнюю часть вашего диапазона данных (см. снимок экрана):
2. Затем введите приведённую ниже формулу в ячейку A1 и перетащите маркер заполнения вправо, чтобы применить её к другим ячейкам. Если столбец пуст, отобразится значение ИСТИНА, в противном случае — ЛОЖЬ. См. снимок экрана:
3. Затем выделите диапазон данных, включая вспомогательную строку, и выберите «Данные» > «Сортировка». См. снимок экрана:
4. В открывшемся диалоговом окне «Сортировка» нажмите кнопку «Параметры». В появившемся окне «Параметры сортировки» выберите опцию «Сортировать слева направо». См. снимки экрана:
 |  |  |
5. Нажмите кнопку OK, чтобы вернуться в диалоговое окно «Сортировка», затем в раскрывающемся списке «Сортировать по» выберите «Строка 1», в разделе «Сортировать по» — «Значения ячеек», а в разделе «Порядок» укажите «От наибольшего к наименьшему». См. снимок экрана:
6. После этого все пустые столбцы окажутся слева от ваших данных. Просто выделите их все, щёлкните правой кнопкой мыши и выберите «Удалить», чтобы мгновенно избавиться от этих пустых столбцов. См. снимок экрана:
Удаление нескольких пустых столбцов на листе с помощью кода VBA
Если вы предпочитаете использовать макрос VBA, задача станет значительно проще. Следующий код VBA — именно то, что вам нужно. Выполните следующие действия:
1. Удерживая клавиши «Alt + 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 для Excel
Утилита «Удалить скрытые строки/столбцы» от Kutools для Excel позволяет мгновенно удалить сразу несколько пустых строк или столбцов.
После установкиKutools for Excelвыполните следующие действия:
1. Нажмите «Kutools» > «Удалить» > «Удалить скрытые строки/столбцы». См. снимок экрана:
2. В диалоговом окне «Удалить скрытые строки/столбцы» укажите область применения операции с помощью раскрывающегося списка «Искать в». (Если вы выбираете «Выбранный диапазон», сначала выделите нужный диапазон.) Затем установите флажок «Столбцы» в разделе «Тип удаления» и выберите «Пустые столбцы» в разделе «Подробный тип». См. снимок экрана:
3. Затем нажмите OK — пустые столбцы будут удалены из выбранного диапазона. См. снимок экрана:
Удаление нескольких пустых столбцов с заголовком с помощью кода VBA
Иногда возникает необходимость удалить все пустые столбцы, содержащие только заголовок, на листе. Следующий код VBA поможет вам быстро справиться с этой задачей. Выполните указанные ниже действия:
1. Удерживая клавиши «Alt + 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. Нажмите кнопку OK — и все пустые столбцы, содержащие только заголовок на текущем листе, будут немедленно удалены. См. снимки экрана:
 | |  |
Другие связанные статьи:
- Удаление всех скрытых строк или столбцов в Excel
- Если у вас большая книга с множеством скрытых строк и столбцов, данные в которых больше не нужны, вы, вероятно, захотите удалить их все. Как это сделать быстро?
- Удаление всех изображений или других объектов в Excel
- Если вам нужно удалить все изображения из Microsoft Excel, ручной выбор и удаление каждого по отдельности может занять уйму времени. Следующие приёмы значительно упростят эту задачу.
- Удалить строки на основе Цвет фона в Excel
- Как удалить всю строку на основе цвета фона? В данном примере требуется удалить все строки, ячейки которых имеют синий цвет фона, как показано на следующем снимке экрана. В этой статье вы найдёте несколько макросов для выполнения этой задачи в Excel.
- Удаление всех строк, содержащих определённый текст в столбце, на листах Google
- Допустим, у вас есть диапазон данных в Google Таблицах, и вы хотите удалить строки на основе значений в определённом столбце. Например, нужно удалить все строки, в которых столбец C содержит текст «Complete». В этой статье я покажу, как легко справиться с этой задачей в Google Таблицах.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек