避免'没有下一步'结束Sub

Question

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

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 

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