Сравнение столбиков в Excel

[Uncheck]

Добрый вечер, нужна ваша помощь, есть два отчета в excel. В них серии, номера полисов. Хотелось бы узнать можно ли как-то сделать так чтобы скопировав номера столбцы как то автоматом сравнивались и выделялись цветом не совпашиеся номера полисов.
Пример того что хочу во вложении. Если будут вопросы я разъясню если что.


Благодарю за помощь.

[kuklp]

Public Sub www()
Dim i&
For i = 1 To [b1].End(xlDown).Row
If Cells(i, 2) <> Cells(i, 4) Then
Cells(i, 2).Interior.ColorIndex = 45
Cells(i, 4).Interior.ColorIndex = 45
End If
Next
End Sub
Но, думаю УФ будет попроще и технологичней.

[Uncheck]

Так как я тяжело понимаю применение всего выше изложенного мне бы что нибудь попроще. Я для работы хотел. Если есть вариант прям excel файл уже с формулой чтобы тока подставляй и подставляй номера было бы круто

[alexvav]

как-то так

[Hugo121]

Если "мне бы что нибудь попроще. Я для работы хотел. Если есть вариант прям excel файл уже с формулой чтобы тока подставляй и подставляй номера было бы круто", и тем более "для работы", то вероятно 10$ не жалко будет?
Хотя попробовать 15 раз можно бесплатно.
Предполагаю, что номера в жизни скорее всего не расположены строго по парам в строке, поэтому...
Файл с макросом http://hugo.nxt.ru/CompareFiles.Find.rar
Настройки на Ваш файл:

Файл - приёмник: c:\Temp\Uncheck\Книга1.xls
Файл - источник: c:\Temp\Uncheck\Книга1.xls
Столбцы сравнения в приёмнике: b
Столбцы сравнения в источнике: d
Лист - приёмник (№): 1
Лист - источник (№): 1
Столбцы - приёмники данных копирования:
Столбцы - источники данных копирования:
Столбец для пометок в приёмнике: c
Столбец для пометок в источнике: e

Вместо c:\Temp\Uncheck\Книга1.xls поставьте свой путь, или если это поле пустое, то после нажатия на кнопку будет предложено выбрать файл/файлы в диалоге.
Результат будет как в приложении - по пометкам всё ясно.
Причём номера можно не подставлять, а запускать прямо на Ваших файлах (они откроются только для чтения, если галку не поставить), только найдите свободные столбцы для пометок.

[vikttur]

Меню Формат-Условное_форматирование, формула

=ЕНД(ПОИСКПОЗ($B1;$D$1:$D$25;))

[Uncheck]

Спасибо большое, попробую