下面的代码是 VBA for Excel。我正在使用 Excel 2007 附带的 Visual Basic 编辑器。
Dim counter As Integer
counter = 1
While counter < 20
counter = counter + 1
end while '<- the compiler is complaining about this statement
代码无法编译。在代码上方我只有声明。根据MSDN，这应该可以工作，但不能。发生了什么事？
【问题讨论】：
Do While / Loop 和 While / Wend）我推荐 Do While 选项，原因很简单，如果需要，您可以使用 Exit Do 打破这个循环功能。
While 结构不是以End While 结束，而是以Wend 结束。
While counter < 20
counter = counter + 1
Wend
请注意，此信息在文档中很容易获得；只需按 F1。 page you link to 处理 Visual Basic .NET，而不是 VBA。虽然（不是双关语）在 VBA 和 VB.NET 之间的语法存在一定程度的重叠，但不能仅仅假设一个文档可以直接应用于另一个文档。
也在 VBA 帮助文件中：
提示
Do...Loop语句提供了一种更结构化和更灵活的方式来执行循环。
【讨论】：
VBA 不是 VB/VB.NET
正确的使用参考是Do..Loop Statement (VBA)。另见文章Excel VBA For, Do While, and Do Until。一种写法是：
Do While counter < 20
counter = counter + 1
Loop
（但For..Next 在这里可能更合适。）
编码愉快。
【讨论】：
For .. Next。它还允许退出Exit For
Exit Do 退出Do While..Loop。我不确定你是否可以退出While.. Wend。