如何解决退出 看看嵌套的 For 循环中断所有循环
我是 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 举报,一经查实,本站将立刻删除。