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

时间:2015-04-26 14:34:27

标签: vba excel-vba excel

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

1 个答案:

答案 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