ошибка в коде?

[Darkdog]

Суть - изучение VBA. Dophin - прошу прощения!

[EducatedFool]

Суть - изучение VBA

Ну, раз изучаете, тогда вот вам ещё один способ найти совпадения:

Sub test()
    Dim cell As Range
    For Each cell In Range([A1], Range("A" & Rows.Count).End(xlUp))
        If cell = [b1] Then MsgBox "Совпадает с ячейкой B1", 64, "Ячейка " & cell.Address
    Next cell
End Sub

Ну или даже так:

Sub test()
    Dim cell As Range
    For Each cell In Range("a:a").SpecialCells(xlCellTypeConstants)
        If cell = [b1] Then MsgBox "Совпадает с ячейкой B1", 64, "Ячейка " & cell.Address
    Next cell
End Sub

[SAS888]

Для примера, приведу еще один интересный способ подсветить все ячейки столбца "A", значения которых совпадают со значением ячейки "B1", без применения условного форматирования и без какого-либо цикла.

Sub Main()
    Dim x As Range: Set x = [A:A].Find([B1]): If x Is Nothing Then Exit Sub
    Range([A1], Cells(Rows.Count, 1).End(xlUp)).Interior.ColorIndex = 6
    [A:A].ColumnDifferences(x).Interior.ColorIndex = 0
End Sub