退出 看看嵌套的 For 循环中断所有循环

编程问答 2022-05-10

问题描述

我是 VBA 的新手，并且被一小段代码卡住了，我认为我错过了一些很容易的东西。我有一列 0,1 和 2 并尝试计算从 0 到 2 的转换，然后当 0 连续出现至少 A 次并且 2 连续出现 B 次时返回到 0。放置 For 和 IF 循环后，我想退出 Do 循环，以免计数过多。但是，将 Exit Do 显示为编译错误并将所有 End If 和 Next 语句显示为错误。我完全困惑为什么会发生这种情况，对此的任何帮助将不胜感激。谢谢

For L = M To lastrow - A
temp = 0
For L1 = L To L + A
    temp = temp + Sheets("Sheet1").Range("AH" & L1)
Next L1
If temp = 0 Then
    N = L + A: A_start = N: x_start = x_start + 1
    For N1 = N To 50 'lastrow - B
        If Sheets("Sheet1").Range("AH" & N1) = 2 Then
            temp1 = 0
            For I1 = N1 To N1 + B
                temp1 = temp1 + Sheets("Sheet1").Range("AH" & I1)
            Next I1
            do while temp1 = 2 * B
                Count = Count + 1: M = I1: B_start = I1: x_Stop = x_Stop + 1
                Sheets("Sheet1").Range("AN2") = Count
            Exit Do
        End If
    Next N1
End If
Next L

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

do-loopsexitexitnested-loopsvba