excel vba代码如何跳出本次循环，执行x+1的下一次循环

DoUntil.Cells(x,8)=""If.Cells(x,7)<>""Then摘要=.Cells(x,7)EndIfpzkmkz=1:Sheets("凭证管理").... Do Until .Cells(x, 8) = ""
If .Cells(x, 7) <> "" Then
摘要 = .Cells(x, 7)
End If
pzkmkz = 1: Sheets("凭证管理").Cells(y, 2) = 摘要
pzkmkz = 1: Sheets("凭证管理").Cells(y, 4) = .Cells(x, 8)
pzkmkz = 1: Sheets("凭证管理").Cells(y, 10) = .Cells(x, 9)
pzkmkz = 1: Sheets("凭证管理").Cells(y, 12) = .Cells(x, 11)
pzkmkz = 1: Sheets("凭证管理").Cells(y, 13) = .Cells(x, 12)
x = x + 1: y = y + 1
Loop
这个循环，我想要判断 .Cells(x, 11) + .Cells(x, 12) = 0 的话，直接 x= x+1，重新执行这个循环体，要在哪里添加什么语句？展开

 我来答

1个回答

#热议# 空调使用不当可能引发哪些疾病？

crazy0qwer
2015-06-04 · TA获得超过3301个赞

知道大有可为答主

回答量：4020

采纳率：71%

帮助的人：1331万

我也去答题访问个人页

关注

展开全部

Do Until .Cells(x, 8) = ""
    IF .Cells(x, 11) + .Cells(x, 12) <> 0 THEN  '这里。。。
         If .Cells(x, 7) <> "" Then
         摘要 = .Cells(x, 7)
         End If
         pzkmkz = 1: Sheets("凭证管理").Cells(y, 2) = 摘要
         pzkmkz = 1: Sheets("凭证管理").Cells(y, 4) = .Cells(x, 8)
         pzkmkz = 1: Sheets("凭证管理").Cells(y, 10) = .Cells(x, 9)
         pzkmkz = 1: Sheets("凭证管理").Cells(y, 12) = .Cells(x, 11)
         pzkmkz = 1: Sheets("凭证管理").Cells(y, 13) = .Cells(x, 12)
     END IF  '还有这里。。。
 x = x + 1: y = y + 1
 Loop

加个判断就好了啊。

更多追问追答

追问