Сравнить значения ячеек столбца

[Moroz33]

Добрый день !
Есть столбец А1 , в нем известный диапазон А1 А100
Нужно сравнить значения А1 А50 А2 А51 и т.д
В случае А1>А50 покрасить ячейки красным цветом условие к другой паре ячеек такое же
Желательно проводить сравнение , когда юзер уже занес значения в ячейки, но это непринципиально.
Я к сожалению в вб совсем не разбираюсь ....
Помогите плиз хотя бы как по циклу прогнать значения и присвоить ячейке переменную .....

[Hugo121]

Это можно делать условным форматированием - никакой макрос тут не нужен.
Но можно конечно и макрос написать. Но без Вашего файла ответ затянется...

[Moroz33]

файлик
надо сравнение по ячейкам
D6>D40 D7>D41 и т.д.
желательно макрос , народ просто делает гору ошибок при забивании
или просто код перебора в процедуре , условное_форматирование работает , но красит тока 1 ячейку из 2

[Hugo121]

Нормально УФ работает. Только я под 2007 намучился его заводить...
Завёл в 2 строки - парных.

[Moroz33]

вот потому и хочется на vb кодик 
но все равно большое спасибо

[Moroz33]

файлик
надо сравнение по ячейкам
D6>D40 D7>D41 и т.д.
желательно макрос , народ просто делает гору ошибок при забивании
или просто код перебора в процедуре , условное_форматирование работает , но красит тока 1 ячейку из 2

прошу прощение , но все-таки может можно на vb как-то перебрать диапазон с проверкой значений
вылезли еще формулы , поэтому протащить уф не удается , а вручную вставлять грустно.
с синтаксисом я не силен 

[Wasilic]

Хороший файлик, а особенно пароль на макросы!

Код Выделить Развернуть

Sub Сверить()
    x = 40
    For i = 6 To 33
       If Cells(i, 4) = Cells(x, 4) Then
          Cells(i, 4).Interior.ColorIndex = 35
          Cells(x, 4).Interior.ColorIndex = 35
       End If
       x = x + 1
    Next
End Sub

[kuklp]

Тут должны еще и пароли Ваши ломать?

[Михаил С.]

Moroz33, поскольку в ваше файле никаких цифр нет, то фот вам пример УФ.
Жмите F9...

[Михаил С.]

На всякий случай в .xls
здесь F9 жать не нужно - нет функции СЛУЧМЕЖДУ()

[Moroz33]

Тут должны еще и пароли Ваши ломать?

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