Оглавление
В этом уроке вы узнаете, как удалить пустые столбцы в Excel с помощью макроса, формулы и нажатия кнопки.
Как бы банально это ни звучало, но удаление пустых столбцов в Excel - это не то, что можно сделать простым щелчком мыши. Это невозможно сделать и в два клика. Перспектива просматривать все столбцы в рабочем листе и удалять пустые вручную - это то, чего вы бы точно хотели избежать. К счастью, Microsoft Excel предоставляет большое количество различных функций, и, используя эти функции, вы можете сделать все возможное.особенности в творческом подходе вы сможете справиться практически с любой задачей!
Быстрый способ удаления пустых колонок, которые вы никогда не должны использовать
Когда дело доходит до удаления пустых мест в Excel (будь то пустые ячейки, строки или столбцы), многие онлайн-ресурсы полагаются на Перейти к разделу Специальный > Заготовки командование. Никогда не делай этого в своих рабочих листах!
Этот метод ( F5 > Специальный... > Заготовки ) находит и выбирает все пустые ячейки в диапазоне:
Если теперь вы щелкните правой кнопкой мыши по выделенным ячейкам и выберите Удалить > Вся колонка все столбцы, содержащие по меньшей мере одна пустая ячейка Если вы случайно сделали это, нажмите Ctrl + Z, чтобы вернуть все обратно.
Теперь, когда вы знаете неправильный способ удаления пустых столбцов в Excel, давайте посмотрим, как сделать это правильно.
Как удалить пустые столбцы в Excel с помощью VBA
Опытные пользователи Excel знают такое правило: чтобы не тратить часы на выполнение чего-то вручную, потратьте несколько минут на написание макроса, который сделает это за вас автоматически.
Приведенный ниже макрос VBA удаляет все пустые столбцы в выбранном диапазоне. Причем делает это безопасно - удаляются только абсолютно пустые столбцы. Если столбец содержит значение одной ячейки, даже пустую строку, возвращаемую какой-либо формулой, такой столбец останется нетронутым.
Макрос Excel: удаление пустых колонок с листа Excel Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Шаг -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End SubКак использовать макрос Удалить пустые столбцы
Ниже описаны шаги для добавления макроса в Excel:
- Нажмите Alt + F11, чтобы открыть редактор Visual Basic.
- В строке меню нажмите Вставка > Модуль .
- Вставьте приведенный выше код в окно Code.
- Нажмите F5, чтобы запустить макрос.
- Когда появится всплывающее диалоговое окно, переключитесь на интересующий вас рабочий лист, выберите нужный диапазон и нажмите OK:
Если вы не хотите добавлять макрос в свой рабочий лист, вы можете запустить его из нашего примера рабочей книги. Вот как это сделать:
- Загрузите наш образец рабочей книги "Удаление пустых столбцов в Excel", откройте его и включите содержимое, если появится запрос.
- Откройте собственную рабочую книгу или переключитесь на уже открытую.
- В рабочей книге нажмите Alt + F8 , выберите пункт DeleteEmptyColumns макрос и нажмите кнопку Запускайте .
- Во всплывающем диалоговом окне выберите диапазон и нажмите кнопку OK .
В любом случае все пустые столбцы в выбранном диапазоне будут удалены:
Определение и удаление пустых столбцов в Excel с помощью формулы
Приведенный выше макрос удаляет пустые столбцы быстро и бесшумно. Но если вы "держите все под контролем" (как я :)), вы можете захотеть визуально увидеть столбцы, которые будут удалены. В этом примере мы сначала определим пустые столбцы с помощью формулы, чтобы вы могли быстро просмотреть их, а затем удалить все или некоторые из них.
Примечание. Прежде чем удалять что-либо навсегда, особенно с помощью неизвестной техники, я настоятельно советую вам сделать резервное копирование вашей рабочей книги, на всякий случай, если что-то пойдет не так.
Поместив резервную копию в безопасное место, выполните следующие действия:
Шаг 1. Вставка нового ряда
Добавьте новую строку в верхней части таблицы. Для этого щелкните правой кнопкой мыши заголовок первой строки и нажмите кнопку Вставка Не беспокойтесь об изменении структуры/порядка данных - вы можете удалить эту строку позже.
Шаг 2. Определите пустые столбцы
В самой левой ячейке вновь добавленной строки введите следующую формулу:
=COUNTA(A2:A1048576)=0
Затем скопируйте формулу в другие столбцы, перетащив ручку заливки.
Логика формулы очень проста: COUNTA проверяет количество пустых ячеек в столбце, от строки 2 до строки 1048576, которая является максимальной строкой в Excel 2019 - 2007. Вы сравниваете это число с нулем и в результате получаете TRUE в пустых столбцах и FALSE в столбцах, содержащих хотя бы одну непустую ячейку. Благодаря использованию относительных ссылок на ячейки, формула правильно настраивается для каждого столбцакуда она копируется.
Если вы создаете рабочий лист для кого-то другого, вы можете захотеть пометить столбцы более осмысленным образом. Нет проблем, это можно легко сделать с помощью оператора IF, подобного этому:
=IF(COUNTA(A2:A1048576)=0, "Пусто", "Не пусто")
Теперь формула явно указывает, какие столбцы пустые, а какие нет:
Совет. По сравнению с макросом, этот метод дает вам больше гибкости в отношении того, какие столбцы считать пустыми. В этом примере мы проверяем всю таблицу, включая строку заголовка. Это означает, что если столбец содержит только заголовок, такой столбец не считается пустым и не удаляется. Если вы хотите проверить только строки данных игнорирование заголовков столбцов В результате столбец, в котором есть заголовок и нет других данных, будет считаться пустым и подлежит удалению. Кроме того, вы можете ограничить диапазон последней использованной строкой, которая в нашем случае будет A11.
Шаг 3. Удаление пустых столбцов
Имея достаточное количество столбцов, вы можете просто выбрать те, которые имеют "Blank" в первой строке (чтобы выбрать несколько столбцов, удерживайте клавишу Ctrl, когда вы щелкаете по буквам столбцов). Затем щелкните правой кнопкой мыши любой выбранный столбец и выберите пункт Удалить из контекстного меню:
Если в вашем рабочем листе десятки или сотни столбцов, имеет смысл привести к виду все пустые столбцы. Для этого сделайте следующее:
- Выберите верхний ряд с формулами, перейдите в раздел Данные вкладка> Сортировка и фильтр группу, и нажмите кнопку Сортировать кнопка.
- В появившемся диалоговом окне предупреждения выберите Расширить выбор , и нажмите Сорт...
- В результате откроется Сортировать диалоговое окно, в котором нажмите кнопку Опции... выберите Сортировка слева направо, и нажмите OK .
- Настройте только один уровень сортировки, как показано ниже, и нажмите OK:
- Сортировать по: Ряд 1
- Сортировать по: Значения ячеек
- Порядок: от А до Я
В результате пустые столбцы будут перемещены в левую часть рабочего листа:
- Выберите все пустые столбцы - щелкните букву первого столбца, нажмите Shift, а затем щелкните букву последнего пустого столбца.
- Щелкните правой кнопкой мыши выбранные столбцы и выберите Удалить из всплывающего меню.
Готово! Вы избавились от пустых столбцов, и теперь ничто не мешает вам удалить верхнюю строку с формулами.
Самый быстрый способ удаления пустых столбцов в Excel
В начале этого руководства я написал, что не существует способа удалить пустые столбцы в Excel одним щелчком мыши. На самом деле, это не совсем так. Я должен был сказать, что не существует встроенного способа. Пользователи нашего Ultimate Suite могут удалить пустые столбцы в Excel буквально за пару щелчков мыши :)
В целевом рабочем листе переключитесь на лист Инструменты Ablebits вкладка, нажмите Удалить заготовки и выберите Пустые колонки :
Чтобы убедиться, что это не было случайным щелчком мыши, надстройка попросит вас подтвердить, что вы действительно хотите удалить пустые столбцы с этого рабочего листа:
Нажмите OK , и через мгновение все пустые колонки исчезли!
Как и макрос, рассмотренный выше, этот инструмент удаляет только те столбцы, которые являются абсолютно пустой Колонки, имеющие любое единственное значение, включая заголовки, сохраняются.
Удалить заготовки Это лишь одна из десятков замечательных функций, которые могут облегчить вашу жизнь как пользователя Excel. Чтобы узнать больше, вы можете загрузить пробную версию нашего пакета Ultimate Suite for Excel.
Пустые столбцы не удаляются! Почему?
Выпуск : Вы испробовали все вышеперечисленные методы, но один или несколько пустых столбцов застряли в вашем рабочем листе. Почему?
Скорее всего, потому что эти столбцы на самом деле не пустые. В ваших таблицах Excel, особенно если вы импортировали информацию из внешнего источника, может скрываться множество различных символов, невидимых человеческому глазу. Это может быть просто пустая строка или символ пробела, неразрывный пробел или какой-либо другой непечатный символ.
Чтобы определить виновника, выделите первую ячейку в проблемном столбце и нажмите Ctrl + стрелка вниз. Например, столбец C на скриншоте ниже не пуст из-за одного символа пробела в C6:
Дважды щелкните по ячейке, чтобы увидеть, что в ней находится, или просто нажмите клавишу Delete, чтобы избавиться от неизвестно чего. Затем повторите описанный выше процесс, чтобы выяснить, есть ли еще какие-нибудь невидимые вещи в этом столбце. Вы также можете захотеть очистить данные, удалив ведущие, концевые и неперекрывающиеся пробелы.
Я благодарю вас за чтение и надеюсь увидеть вас в нашем блоге на следующей неделе!
