Как удалить все пустые столбцы в Microsoft Excel

Есть несколько способов удалить пустые столбцы в файле Microsoft Excel. Зачем вам это нужно? - Просто.

Также смотрите нашу статью Как заморозить верхнюю строку в Excel

Время от времени данные, которые вы импортируете с веб-страниц, могут приводить к появлению большого количества столбцов, даже если они не используются. Вы видите, что это происходит с CSV-файлами и TXT-файлами так же часто.

Когда это происходит, удаление столбцов вручную не всегда может быть простым. Конечно, если у вас есть только два или три пустых столбца, вполне нормально удалить их вручную. Но что, если ваш импортированный проект создает 57 пустых и не непрерывных столбцов? - Для этого вам понадобится автоматизированный процесс.

Использование макроса VBA

Быстрые ссылки

• Использование макроса VBA
  • • • Перейти к вашему файлу Excel
      • Держите Alt и F11 вместе
      • Дождитесь появления окна Microsoft Visual Basic для приложений
      • Нажмите Вставить
      • Выберите модуль
      • Вставьте следующие строки кода в окне
      • Нажмите F5, чтобы скомпилировать и выполнить макрос
      • Введите соответствующий рабочий диапазон в диалоговом окне
      • $ A $ 1 - Верхний угол
      • $ J $ 12 - нижний угол
      • Нажмите ОК
• Использование инструментов Excel
  • • • Сначала выберите диапазон данных
      • Нажмите F5
      • Нажмите Специальный
      • Выберите опцию Пробелы
      • Нажмите OK (этот выбор обеспечит выбор всех пустых ячеек в заданном диапазоне)
      • Перейти на вкладку Главная
      • Выберите раскрывающееся меню «Удалить» в группе инструментов «Ячейки»
      • Выберите Удалить ячейки
      • Выберите Shift Cells Left для удаления и перестановки столбцов
      • Нажмите ОК
      • Выберите Shift ячейки вверх для удаления и перестановки строк
• Другие легко выполняемые задачи сортировки
• Последняя мысль

Первый метод предполагает использование макроса VBA.

1. Перейти к вашему файлу Excel

2. Держите Alt и F11 вместе

3. Дождитесь появления окна Microsoft Visual Basic для приложений

4. Нажмите Вставить

5. Выберите модуль

   

6. Вставьте следующие строки кода в окне

Sub DeleteEmptyColumns()
'Updateby20140317
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

1. Нажмите F5, чтобы скомпилировать и выполнить макрос

2. Введите соответствующий рабочий диапазон в диалоговом окне

Рабочий диапазон или диапазон данных - это определенный интервал между столбцами, на который вы хотите ориентироваться. Формат: $ A $ 1: $ J $ 12. Буквы соответствуют столбцу, а цифры соответствуют строкам.

Если вы перетащите его мышью или удерживая Shift и используя клавиши со стрелками, вы заметите, что:

$ A $ 1 - Верхний угол

$ J $ 12 - нижний угол

Вы не можете выбрать диапазон данных до того, как начнете загружать макрос, так как он не останется выбранным.

Нажмите ОК

После этого все пустые столбцы должны быть удалены, а все заполненные столбцы должны быть рядом друг с другом.

Использование инструментов Excel

Очевидно, что Excel не был бы таким мощным двигателем, если бы у него не было больших возможностей сортировки. Вы можете использовать раскрывающееся меню Удалить, чтобы удалить целые строки, столбцы или пустые ячейки.

1. Сначала выберите диапазон данных

2. Нажмите F5

3. Нажмите Специальный

   

4. Выберите опцию Пробелы

5. Нажмите OK (этот выбор обеспечит выбор всех пустых ячеек в заданном диапазоне)

   

6. Перейти на вкладку Главная

7. Выберите раскрывающееся меню «Удалить» в группе инструментов «Ячейки».

8. Выберите Удалить ячейки

   

9. Выберите Shift Cells Left для удаления и перестановки столбцов

10. Нажмите ОК

Теперь пустые ячейки из пустых столбцов должны были исчезнуть, а все остальные строки были бы сближены.

Вы можете использовать тот же подход, чтобы удалить целые строки. Однако вместо перемещения ячеек влево вы выбираете другой вариант.

Выберите Shift ячейки вверх для удаления и перестановки строк

В зависимости от того, какую версию Excel вы используете, вы можете получить разные формулировки. Но в любом случае две верхние опции в меню «Удалить ячейки» всегда одинаковы.

Этот метод больше не удаляет все пустые ячейки в выделении. До Excel 2013 это могло бы привести к непреднамеренному удалению даже пустых строк, что обычно приводило к неправильной сортировке.

Теперь проблема больше не возникает. Поэтому, если вы также хотите избавиться от строк, вы можете сделать это, снова выбрав диапазон данных и выполнив предыдущие шаги. Затем просто выберите, чтобы сместить или удалить клетки вверх, а не влево.

Другие легко выполняемые задачи сортировки

Хотя технически использовать панель инструментов Excel для удаления пустых столбцов и строк кажется проще, макрос-метод VBA надежен, что означает, что вы можете использовать его даже в более старых версиях Microsoft Excel.

Используя тот же модуль VBA или меню «Перейти к функции», вы можете сделать гораздо больше в Excel. У вас есть определенные формулы, которые больше не актуальны? - Вы можете удалить их или изменить их соответствующим образом.

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

Последняя мысль

За прошедшие годы в Интернете появилось множество дополнений. Некоторые из них позволяют использовать даже больше ярлыков при сортировке больших таблиц. Однако эти приложения редко бывают бесплатными и не стоят проблем для простых задач, таких как удаление пустых строк, ячеек и столбцов.

Кроме того, если бы это было так сложно, Microsoft бы еще больше упростила процесс или создала бы еще более обширные руководства по сортировке в Excel.