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

Нужно закрасить салатовым цветом с 1 по 3 столбец каждой строки, если следующая строка (по столбцу 1) равна предыдущей.

Грубо говоря в таблице

Щука 90 114
Щука 83 11
Карась 1 55

Первые две строки должны быть закрашены салатовым (тока 3 столбца строки).

Вот собственно макрос:


Sub tr()
Dim i As Integer
Dim a As Integer

ActiveSheet.Range("c2").Select

For i = 1 To 200

If ActiveCell.Offset(i, 0).Value = 0 Then
a = i
Exit For

End If

Next i

MsgBox a


'Range("a3").Activate

For i = 3 To a
Range("a3").Activate
If ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(2, 0).Value Then
Range("a" & i, "c" & i).Select
Selection.Interior.ColorIndex = 35
End If
Next i


End Sub



СПАСИБО.