如果不是在多种条件下都没有

Isu*_*Isu -1 excel vba excel-vba

有人可以帮我在这里找到错误吗?

If Not r Is Nothing Then
    r.Select
Else
If Not rr Is Nothing Then
    rr.Select
Else
If Not rrr Is Nothing Then
    rrr.Select
Else
End If
Run Code Online (Sandbox Code Playgroud)

Opi*_*Dad 5

你的代码的问题是你使用If Else If而不是If ElseIf 你需要做的:

If Not r Is Nothing Then
    r.Select
Else
    If Not rr Is Nothing Then
        rr.Select
    Else
       If Not rrr Is Nothing Then
           rrr.Select
       Else
       End If
    End If
 End If
Run Code Online (Sandbox Code Playgroud)

要么

If Not r Is Nothing Then
    r.Select
ElseIf Not rr Is Nothing Then
    rr.Select
ElseIf Not rrr Is Nothing Then
    rrr.Select
Else
End If
Run Code Online (Sandbox Code Playgroud)

第二个可能更好.