Код |
---|
Sub tt(): Dim cc As Range, r As Range With [a1].CurrentRegion: For Each cc In .Columns(1).Cells Set r = .Columns(2).Find(cc, , xlValues, xlWhole) If Not r Is Nothing Then cc.Value = cc.Value & " - OK": r.Value = r.Value & " - OK" Next: End With: End Sub |

Попробую покавырять, что бы в отдельной ячейке показывал ))