excel - VBA代码给我运行时错误91对象变量或未设置块

您能否帮助我，为什么下面出现91代码错误。我将不胜感激。

  Dim ra As Range
  Dim length As Integer

Set ra = Range("AE:AE").Find(What:="Dell EMC Maintenance Representative", LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False)
    length = Len(ra)

If length < 40 Then
    MsgBox ("Sales Rep. is missing!")
    GoTo BEG

    Else

转到乞G

非常感谢

最佳答案

当您尝试在len()范围对象上执行ra操作时，会发生错误。设置ra时，必须考虑.Find方法找不到您的搜索条件的情况。发生这种情况时，ra对象什么都不容纳，并且您无法在len()上执行nothing操作。

您应该在尝试检查长度之前检查确保ra设置为某种值，从而对此进行陷阱。像这样：

If ra Is Not Nothing Then
    length = Len(ra)
Else
    'handle this case (length = 0)
End If