09.06.2007, 21:38
общий
это ответ
Здравствуйте, Worsvch!
Вариант ответа от Felix, самый подходящий для решения Вашей задачи не прибегая к VBA. Если же Вы решили "познакомиться с VBA", предлагаю маленький кусочек кода с помощью которого так же можно решить Вашу задачу.
Удачи.
Евгений.
Приложение:
Sub checkData()Application.ScreenUpdating = FalseDim iRow As Long, vVal, sAdr As String, c sAdr = Cells(3, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) _ & ":" & Cells(65000, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)iRow = 2Do While iRow < 65000 iRow = iRow + 1 vVal = Trim(Cells(iRow, 2).Value) If vVal <> "" Then Set c = Range(sAdr).Find(vVal, LookIn:=xlFormulas) If Not c Is Nothing Then Cells(iRow, 3).Formula = "есть" End If End IfLoopApplication.ScreenUpdating = TrueEnd Sub