虽然不是经常使用这个网站，你会发现自己在要使用Do Until循环在Excel VBA的情况。代码放置之间做之前和循环将重复进行，直到以后做的一部分，直到是真实的。

将工作表上的一个命令按钮并添加以下代码行：

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

结果当您单击工作表上的命令按钮：

Excel VBA Do Until Loop

说明：直到i为高于6时，Excel VBA放置值20到细胞在第i行和第1列和增量i的交叉点由1。结果，值20将被放置到列A的六倍（未7，因为当我等于7）的Excel VBA停止。