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

Пустые столбцы имеют потенциал причинения непредвиденных ошибок. Этот макрос позволяет автоматизировать задачу по удалению пустых столбцов. 

В этом макросе, мы используем свойство UsedRange объекта ActiveSheet, чтобы определить диапазон, с которым мы работаем. Свойство UsedRange дает диапазон, который охватывает ячейки, в которых есть данные. Затем устанавливает счетчик, который начинается с последнего столбца, используемого диапазона, проверяя, весь ли столбец пуст. Если весь столбец действительно пуст, мы удалим столбец. Мы продолжаем делать то же самое для каждого цикла, каждый раз, когда счетчик двигается к предыдущей колонке. 

1. Шаг 1 объявляет две переменные. Первая переменная является переменной объекта под названием MyRange. Это переменная объекта, который определяет целевой диапазон. Другая переменная является переменной Long Integer называется iCounter. 

2. Шаг 2 заполняет переменную MyRange со свойством UsedRange объекта ActiveSheet. Свойство UsedRange дает диапазон, который охватывает клетки, которые были использованы для ввода данных. Обратите внимание, что, если мы хотим указать фактический диапазон или именованный диапазон, мы могли бы просто ввести свое название — Range («MyNamedRange»). 

3. На этом этапе макрос устанавливает параметры для нашего счетчика, чтобы начать с дальнего столбца (MyRange.Columns.Count) и заканчивается в первом столбце выбранного диапазона. Обратите внимание, что мы используем Шаг-1. Поскольку мы указываем шаг -1, Excel знает, что мы будем увеличивать счетчик в обратном направлении; и перемещает счетчик на один шаг на каждой итерации. В целом, Шаг 3 говорит Excel, что мы хотим начать в последнем столбце выбранного диапазона, двигаясь назад, пока мы не окажемся в первом столбце диапазона. При работе с диапазоном, вы можете явно вызывать определенный столбец в диапазоне, передавая номер столбца индекса к коллекции Columns диапазона. 

4. На шаге 4, макрос использует переменную iCounter как номер индекса для коллекции Columns MyRange. Это помогает определить, с каким именно столбцом мы работаем в текущем цикле. Макрос проверяет все ячейки в этом столбце, являются ли они пустыми. Если все они пустые, макрос удаляет весь столбец. 

5. На шаге 5, макрос возвращается к шагу 3 и увеличивает счетчик.

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.