найти динамический код переменной, дающий ошибку времени выполнения 91

Question

Возможно ли обойти ошибку времени выполнения 91 (переменная объекта не задана), когда я использую следующий код?

Dim findE As Range 
findE = Sheets(1).Range("A:AAA").Find(What:="E", searchdirection:=xlLeft, lookat:=xlWhole, searchorder:=xlByColumns).Column 

My findE используется для поиска текста «E», и он может не отображаться постоянно. Всякий раз, когда он не появляется, он создает ошибку времени выполнения.

Я попытался с помощью

Dim findE As Range 
Set findE = Sheets(1).Range("A:AAA").Find(What:="E", searchdirection:=xlLeft, lookat:=xlWhole, searchorder:=xlByColumns).Column 

If not findE Is Nothing Then 
'do something 
end if 

Я все еще вижу ошибку. Я сделал некоторые ссылки на этот VBA in find function runtime error 91, но все равно никакой помощи. Пожалуйста, посоветуйте мне об этом. Спасибо.

Answer 1

Попробуйте следующее ...

Dim FindE As Range 
With Sheets(1).Range("A:AAA") 
    Set FindE = .Find(What:="E", SearchDirection:=xlLeft, LookAt:=xlWhole, _ 
     SearchOrder:=xlByColumns) 
    If Not FindE Is Nothing Then Set FindE = Columns(FindE.Column) 
End With