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

Процедура бесплатной версии !SEMTools.

• Почему нужно удалять пустые столбцы?
  • Что такое !SEMTools?
• Удалить пустые столбцы с активного листа
• Удалить пустые столбцы со всех листов в книге
• Код на VBA
  • Почему лучше использовать !SEMTools

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

Почему нужно удалять пустые столбцы?

Пустые столбцы — лишняя сущность почти в любой таблице. Они мешают и затрудняют чтение данных. Удаление их помогает:

• Сделать таблицы более аккуратными.
• Ускорить работу с файлами Excel.
• Облегчить анализ данных, построение сводных таблиц и диаграмм

Что такое !SEMTools?

!SEMTools для Excel — это мощная надстройка, которое предлагает более 500 инструментов для упрощения работы с данными. И самое приятное, что инструмент для удаления пустых столбцов доступен в её бесплатной версии!

Удалить пустые столбцы с активного листа

С помощью !SEMTools удалить пустые столбцы с активного листа очень просто. Достаточно выбрать нужную опцию в меню (УДАЛИТЬ – Диапазоны – Столбцы…), и всё — все пустые столбцы будут моментально удалены.

Удалить пустые столбцы со всех листов в книге

Если у вас огромная книга с множеством листов, не беспокойтесь. !SEMTools позволяет удалить пустые столбцы со всех листов в книге одним нажатием кнопки. Это особенно полезно, если ваши данные разбросаны по нескольким вкладкам.

Код на VBA

Можно попробовать удалить пустые столбцы вручную, используя несложный VBA-код. Вот пример такого кода:

Удалить_Пустые_Столбцы_Активного_Листа(s As Worksheet): Dim lr As Long, lc As Long, i As Long: With s.UsedRange: lr = s.Rows(.Rows.Count).Row: lc = .Columns(.Columns.Count).Column: End With: For i = lc To 1 Step -1: Select Case WorksheetFunction.CountA(s.Columns(i)) = 0: Case True: s.Columns(i).EntireColumn.Delete: End Select: Next i: End Sub

Sub Удалить_Пустые_Столбцы_Активной_Книги(): Dim ws As Worksheet: For Each ws In ThisWorkbook.Sheets: Удалить_Пустые_Столбцы_Активного_Листа ws: Next ws: End Sub

Этот код позволяет пустые столбцы с заданного листа и со всех листов в книге. Вставьте его во VBA-модуль в открытой книге, и его можно будет применить. Но вот в чём загвоздка:

1. Сложность: Не каждый пользователь Excel знаком с VBA.
2. Время: Внедрение кода требует времени, которого часто не хватает.
3. Транспортабельность: код можно будет запустить, только если открыта книга, в которой он сохранён, что крайне неудобно
4. Другой формат файла: для сохранения кода не подходят обычные файлы формата xlsx. Придется поменять формат и использовать xlsm или xlsb, которые, в свою очередь, не всегда поддерживаются на других устройствах и площадках.

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

Почему лучше использовать !SEMTools

С !SEMTools вам не нужно беспокоиться о коде, ошибках или потере времени. Просто установите дополнение и пользуйтесь более чем 500 инструментами, включая удаление пустых столбцов. Вот основные преимущества:

• Простота: Не нужно быть экспертом по VBA.
• Всегда под рукой: Надстройка запускается вместе с Excel и предоставляет доступ ко всем процедурам через отдельную вкладку на панели вашего Excel.
• Скорость: Всего несколько кликов — и всё готово.
• Удобная навигация: меню надстройки организованы максимально органичным способом, позволяя вам выполнять нужные вам действия прямо по ходу мысли.

Напомню еще раз – процедура абсолютно бесплатная и доступна во всех версиях надстройки