避免“没有下一个”End Sub

这将是非常有帮助的，如果这里的一些专家帮助我的问题：我有一个循环来检查范围内的零值，问题是我不能避免“没有下一个”的错误。 也许这是错误的build设for循环使用End Sub？ 谢谢。

For Each c In Range("B4:H4") If c.Value = 0 Then MsgBox "Wrong record!", vbExclamation End Sub Next c 

Answer 1

退出，不结束。

 For Each c In Range("B4:H4") If c.Value = 0 Then MsgBox "Wrong record!", vbExclamation Exit Sub End If Next c 

但是，通常最好制定一种方法来限制要退出的点数。