Как сделать перебор диапазона ячеек

Этот базовый макрос показывает вам простой способ сделать перебор диапазона ячеек по одной и выполнить какое-либо действие. 
В этом макросе используются две переменные объекта Range. Одна из переменных отражает объем данных, с которыми мы работаем, в то время как другая используется для хранения каждой отдельной ячейки в диапазоне. Потом мы используем оператор For Each, чтобы активировать каждую ячейку в фокусе целевого диапазона. 

1. Макрос объявляет две переменные объекта Range. Одна из них, называется MyRange, содержит весь целевой диапазон. Другая, MyCell, содержит каждую ячейку в диапазоне, так как макрос проводит цикл через каждую из них. 

2. На шаге 2 мы заполняем переменную MyRange с целевым диапазоном. В этом примере мы используем Range («C5:C15»). Если ваш целевой диапазон является именованным, можно просто ввести его название — Range («MyNamedRange»). 

3. На этом этапе макрос начинает цикл через каждую ячейку в целевом диапазоне, активируя ее. 

4. После того, как ячейка активируется, можно с ней что-то сделать. Это «что-то» на самом деле зависит от поставленной задачи. Вы можете удалять строки, когда активная ячейка имеет определенное значение, или вы можете вставить строку между каждой активной ячейки. В этом примере макрос меняет шрифт на полужирный для любого элемента, который имеет значение больше, чем 3000. 

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

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

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