当我使用以下代码时,是否可以绕过运行时错误91(对象变量未设置)?
Dim findE As Range
findE = Sheets(1).Range("A:AAA").Find(What:="E", searchdirection:=xlLeft, lookat:=xlWhole, searchorder:=xlByColumns).Column
我的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,但仍然没有任何帮助。请告诉我这个。谢谢。
答案 0 :(得分:2)
尝试以下方法......
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