do循环可以配合while或者是until使用，也可以不配合，在不使用while或者untile的时候，循环中要使用其他的跳出指令，否则很容易出现无限循环，导致循环占用过多资源而死机。
如下面的do循环，就是使用了判断，当判断不成功时，使用了exit do跳出循环，使循环变得有限。
Sub doloop循环()
Do
If a < 10 Then
MsgBox "a=" & a
a = a + 1
Else
MsgBox a & ">= 10"
Exit Do
End If
Loop
End Sub
|
使用循环来生成序号：
要求在sheet17表第1列第1行开始，从1到9生成序号，则可以使用下面的代码：
Sub doloop和while()
Dim a As Integer
a = 1
Do While a < 10 '直到符合条件才跳出
Sheet17.Cells(a, 1) = a
a = a + 1
Loop
End Sub
|
|
|
|
|
