Границы

[OgE®_M@G]

1. Здравствуйте уважаемые. Есть такая проблемка. Начал с изучения VBA. столкнулся с проблемой динамических диапазонов. Есть диапазон A10:N10. Нужно закрашивать ячейки диапазона A10:N10 с шагом 8. Знаю что нужно организовать цикл.
For i=10 to 1000 step 8
then...
Дальше незнаю.
2. Еще удалить целые строки если хотя бы 5 и более из них пустые.
3. Обрисовать границы только тех ячеек где есть значения, но если значения присутствуют в любой ячейки (A2 или B2 или и т.д.) диапазона скажем A10:N10 нарисовать полностью строку.

[Hugo121]

A10:N10 - это 14 ячеек. Тут цикл не нужен -

With [a10:n10]
Union(.Cells(1), .Cells(8)).Interior.Color = vbRed
End With

Удалять строки нужно циклом снизу вверх.

[EducatedFool]

Если надо закрасить каждую N-ю строку в таблице:
http://excelvba.ru/code/RepeatRange

[Hugo121]

Предположим, что ошибку поняли и исправили: "Нужно закрашивать ячейки диапазона A10:N1000 с шагом 8".
И всё равно непонятно - каждую 8-ю ячейку или в каждой 8-ой строке (тогда сколько ячеек?)?

[OgE®_M@G]

Первый способ закрашивает только первую и восьмую ячейку диапазона. А мне нужно чтобы закрашивал полностью строку диапазона A10:N1000 с шагом 8 то есть:
1. A10:N10
2. A18:N18
и т.д.

[Hugo121]

Это другое дело:

For i = 10 To 1000 Step 8
Rows(i).Interior.Color = vbRed
Next

вернее

For i = 10 To 1000 Step 8
Rows(i).Cells(1).Resize(, 14).Interior.Color = vbRed
Next

[Казанский]

Или так

With Range("A10:N1000")
    For i = 1 To .Rows.Count Step 8
        .Rows(i).Interior.Color = vbRed
    Next
End With

[OgE®_M@G]

То что надо отлично. Спасибо Казанский. С краской разобрались все таки цикл есть, значит не все со мной потеряно. СПАСИБО.

[OgE®_M@G]

А если необходимо закрасить дипазон строки A10:N10 и дальше например может быть A15:N15 при условии что в строке A15:N15 находится скажем фраза "любое выражение" Итог

[OgE®_M@G]

Здравствуйте уважаемые. Разобрался я все таки с закрашиванием диапазона. Так как данные постоянно меняются целесообразным стало использовать "УСЛОВНОЕ ФОРМАТИРОВАНИЕ".
Вопросы 2 и 3 остаются открытыми решение мною еще не найдено. Прошу вашей помощи. Спасибо.