2009-11-18 5 views

ответ

4

Вы можете сделать это со следующим кодом.

On Error Resume Next 

Range("A1:Y55").Find(What:="UID", After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

Инструкция по ошибке позволит программе продолжить работу, если она не найдет совпадений.

Смежные вопросы