Оглавление
В этой статье мы расскажем вам, как можно удалить пустые столбцы в Excel тремя эффективными и простыми способами.
Скачать рабочую тетрадь
Рабочую тетрадь для практических занятий можно скачать отсюда.
Delete-Blank-Columns-in-Excel.xlsm3 простых способа удаления пустых столбцов в Excel
Здесь вы узнаете 3 способа удаления пустых столбцов в Excel с помощью инструментов редактирования Excel, с помощью формулы и с помощью кода VBA.
1. с помощью инструментов редактирования Excel
Шаг 1: Выберите набор данных.
Шаг 2: Перейти к Главная -> Найти и выбрать -> Перейти к специальному .
Шаг 3: Из Перейти к специальному во всплывающем окне выберите Заготовки , затем нажмите OK .
Шаг 4: Будут выбраны только пустые ячейки из вашего набора данных. Щелкните правой кнопкой мыши, из всплывающего списка опций выберите Удалить .
Шаг 5: Далее, из всплывающего окна Удалить коробка, выбор Сдвиг ячеек влево из предложенных вариантов. Нажмите OK.
Это удалит все пустые столбцы из набора данных.
Читать далее: Как удалить неиспользуемые столбцы в Excel
2. с помощью формулы
Вы можете использовать COUNTA() формула для удаления пустых столбцов в Excel. Что COUNTA() Формула сначала определит пустые и непустые столбцы в вашем наборе данных в Excel, а затем вы сможете легко выбрать и удалить пустые столбцы.
Это еще один эффективный способ удаления пустых столбцов в Excel, особенно когда у вас много пустых столбцов для работы. Давайте узнаем, как это сделать.
Шаг 1: Вставьте пустую строку прямо над набором данных, щелкнув правой кнопкой мыши на заголовке первой строки и выбрав пункт Вставка из всплывающего списка опций. Это позволит вставить новую строку над всем набором данных.
Шаг 2: В самой левой ячейке рабочего листа напишите следующую формулу,
=COUNTA(A2:A1048576)=0
Вот,
A2 представляет собой первую ячейку набора данных,
A1048576 представляет собой максимум строки в Excel (2007-2019).
Шаг 3: Нажмите Войти На экране появится Правда если колонка пуста, или Ложь если во всем столбце есть хотя бы одна непустая ячейка.
Шаг 4: Примените формулу к другим столбцам, перетащив мышью столбец Наполнительная рукоятка .
Шаг 5: Теперь перейдите к Главная -> Сортировка и фильтр -> Пользовательская сортировка .
Шаг 6: Из всплывающего окна Сортировать окно, нажмите кнопку Опции Затем выберите Сортировать слева направо из Параметры сортировки во всплывающем окне и нажмите OK .
Шаг 7: Нажмите на выпадающее поле рядом с Сортировать по ярлык и оттуда выберите опцию Ряд 1 .
Шаг 8: Нажмите на выпадающее поле под Сортировать по этикетку и выберите опцию Значения ячеек оттуда.
Шаг 9: Нажмите на выпадающее поле под Заказ этикетку и выберите опцию От самого большого до самого маленького . Нажмите OK .
Это приведет к смещению всех пустых столбцов в левую часть рабочего листа.
Шаг 10: Отсюда просто выберите весь набор данных с пустыми пустыми столбцами, щелкните правой кнопкой мыши и выберите Удалить .
Шаг 11: Из всплывающего окна Удалить поле, выберите Вся колонка из предложенных вариантов. Нажмите OK .
Это удалит все пустые столбцы из набора данных.
Похожие чтения:
- Как удалить несколько столбцов в Excel
- Удаление дублирующихся столбцов в Excel (6 способов)
- Как удалить лишние столбцы в Excel (7 способов)
- Удаление столбцов в Excel без изменения формулы (два способа)
3. с помощью кода VBA
Если вы опытный пользователь Excel, то этот метод специально для вас. Применение кода VBA - самый безопасный способ удаления пустых столбцов в Excel. Он удаляет только абсолютно пустые столбцы. Если любой столбец содержит значение одной ячейки, даже любая ячейка возвращает пустую строку, все равно весь столбец будет полностью сохранен.
Ниже приведен автоматизированный способ удаления пустых столбцов в Excel.
Шаг 1: Нажмите Alt + F11 на клавиатуре или перейдите на вкладку Разработчик -> Visual Basic чтобы открыть редактор Visual Basic.
Шаг 2: В строке меню нажмите Вставка -> Модуль .
Шаг 3: Скопируйте следующий код и вставьте его в окно кода.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub Шаг 4: Нажмите F5 на клавиатуре или в строке меню выберите Запускайте -> Run Sub/UserForm Вы также можете просто нажать на маленькую Значок воспроизведения в строке подменю, чтобы запустить макрос.
Шаг 5: Во всплывающем диалоговом окне переключитесь на интересующий вас рабочий лист, выберите нужный диапазон и нажмите кнопку OK .
Это приведет к удалению всех пустых столбцов из базы данных.
Заключение
В этой статье мы рассмотрели три простых способа удаления пустых столбцов в Excel. Мы показали, как использовать инструменты редактирования Excel для удаления пустых столбцов, как применять формулы для удаления пустых столбцов, а также реализовали код VBA для удаления пустых столбцов в Excel.
