Question

当我使用以下代码时，是否可以绕过运行时错误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，但仍然没有任何帮助。请告诉我这个。谢谢。

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

找到动态变量代码给出运行时错误91

1 个答案: