没有在不工作（没有如果/别/ endif目前）

我不能让While / Wend循环工作。 即使是最小的情况下，如下所示：

Sub TestingWhile() Dim i As Integer i = 0 Do While i < 10 i = i + 1 Wend End Sub 

该代码的结果是一个错误消息窗口，说“编译错误：Wend without While”。

我发现有人有这个错误，但只是因为他们总是有一些错误的if / else语句。 这显然不是这种情况。 这是怎么回事？

顺便说一句，我在Excel 2013中使用Microsoft Visual Basic for Applications 7.1。

编辑 – 问题解决了。 语法，初学者错误： Do While Loopclosures，而Wend被closures

Answer 1

Do While被Loopclosures而Wendclosures时：

 Sub TestingWhile() Dim i As Integer i = 0 Do While i < 10 i = i + 1 Loop End Sub