Excel 如何在hit Then和End If语句之前退出If？

我需要一个在“然后”之前结束的方法

主[B10000]的i=0的

。结束（xlUp）。第4行
POD=微调（主量程（“B5”）.偏移量（i，0））
如果是“POD”，那么
L2=“https:/AAAAA”和POD
P.打开“获取”，L2
P.set0策略
P.send
P.waitForResponse
D.body.innerHTML=P.responseText
对于D.getElementsByClassName（“col-md-7”）中的每个R
如果InStr（1，R.innerText，“在地板上找不到吊舱”）为0，则
主范围（“B5”）。偏移量（i，1）=“脱机”
**'如果=脱机，我需要在这里结束**
其他的
主量程（“B5”）。偏移量（i，1）=“在线”
如果结束
下一个R
如果结束
接下来我
端接头

如AJD所述，您可以在将B5单元格的值设置为“脱机”后退出

主[B10000]的i=0的

。结束（xlUp）。第4行
POD=微调（主量程（“B5”）.偏移量（i，0））
如果是“POD”，那么
L2=“https:/AAAAA”和POD
P.打开“获取”，L2
P.set0策略
P.send
P.waitForResponse
D.body.innerHTML=P.responseText
对于D.getElementsByClassName（“col-md-7”）中的每个R
如果InStr（1，R.innerText，“在地板上找不到吊舱”）为0，则
主范围（“B5”）。偏移量（i，1）=“脱机”
退出
其他的
主量程（“B5”）。偏移量（i，1）=“在线”
如果结束
下一个R
如果结束

---

接下来我

你能澄清一下“结束”是什么意思吗？此时，您表示希望完成

If

，在这种情况下，您可以嵌套另一个

If…Then

语句。还是要退出内部循环？或者您是否需要新的构造，例如

do While

或

do Until

？目前，读者还不清楚你的意思。如果“脱机”我需要退出“For R”循环，我发誓我以前尝试过，但无论如何效果很好！

For i = 0 To Main.[B10000].End(xlUp).Row - 4

    POD = Trim(Main.Range("B5").Offset(i, 0))
    If POD <> "" Then

        L2 = "https:/AAAAA" & POD

        P.Open "Get", L2
        P.SetAutoLogonPolicy 0
        P.send
        P.waitForResponse

        D.body.innerHTML = P.responseText

        For Each R In D.getElementsByClassName("col-md-7")
            If InStr(1, R.innerText, "pod is not found on floor") <> 0 Then
                Main.Range("B5").Offset(i, 1) = "Offline"

                **'I need end here if = Offline**

            Else
                Main.Range("B5").Offset(i, 1) = "Online"
            End If
        Next R
    End If
Next i

End Sub

For i = 0 To Main.[B10000].End(xlUp).Row - 4

POD = Trim(Main.Range("B5").Offset(i, 0))
If POD <> "" Then

    L2 = "https:/AAAAA" & POD

    P.Open "Get", L2
    P.SetAutoLogonPolicy 0
    P.send
    P.waitForResponse

    D.body.innerHTML = P.responseText

    For Each R In D.getElementsByClassName("col-md-7")
        If InStr(1, R.innerText, "pod is not found on floor") <> 0 Then
            Main.Range("B5").Offset(i, 1) = "Offline"
            Exit For
        Else
            Main.Range("B5").Offset(i, 1) = "Online"
        End If
    Next R
End If