Редактирование каждой второй строки

[Questru]

Добрый день!

Пишу макрос. Хочу серым шрифтом выделить каждую вторую строк.

Застопорился, как в цикле For организовать шаг 2, а не 1?

В дельфе легко i=i+1
Тут же просто Next...

[DiemonStar]

For I = 1 to Count Step 2
  ...
Next I

[Questru]

Сообщение от DiemonStar

For I = 1 to Count Step 2
  ...
Next I

Спасибо!
А куда теперь воткнуть "k"

For i = 3 To k Count Step 2
Так не пашет =)

[IgorGO]

либо ... To Count ...
либо ... To k ...

[Questru]

Сообщение от IgorGO

либо ... To Count ...
либо ... To k ...

а как же тогда ограничить выполнение цикла?

Может устроить проверку на четность i внутри цикла for?

[DiemonStar]

В данном коде по Next происходит не I = I + 1, а I = I + 2. Т.е. обычный цикл , но дописывается Step и число, определяющее шаг цикла.

[Questru]

Сообщение от DiemonStar

В данном коде по Next происходит не I = I + 1, а I = I + 2. Т.е. обычный цикл , но дописывается Step и число, определяющее шаг цикла.

Это я понял

Только у меня, например, всего 579 строк. Зачем мне раскрашивть все строки в файле? Я хочу только таблицу разрисовать.

[IgorGO]

однако....
for i = 3 to 579 step 2

[DiemonStar]

Я хочу только таблицу разрисовать.

можно как-то так сделать:

Sub a()
With ActiveSheet
  For n = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 2
    .Cells(n, 1).EntireRow.Range("A1:E1").Interior.Color = 255
  Next
End With
End Sub

[EducatedFool]

Чтобы работало быстрее, советую использовать этот способ:
http://excelvba.ru/code/repeatrange