1、ExcelVBA do while loop循环的用法
上次分享了VB中for循环的用法，这次给大家分享do while loop 的用法。
2、Sub aaa()
dim a
Do While a < 900
。。。中间加代码。。。
Loop
End Sub
当a小于900的时候，loop以内的代码循环。
3、这里就多分享几个实例给大家，都是我刚学的时候写的东西。
现在工作用得少了，只能给大家分享分享经验了。
4、解读一：
Do While Cells(c, "r") <> ""
ccc = ccc + 1
mj1 = Cells(c, "r") + mj1
c = c + 1
Worksheets("Sheet1").Cells(cccc, "i") = mj1
Loop
当单元格“r”c不为空时，循环以下代码。
5、解读二：
Do While a < 900
b = Cells(a + 2, "b")
If b = "" Then
b = "田埂"
End If
Columns("O:R").Replace _
What:=a, Replacement:=b, _
SearchOrder:=xlByColumns, MatchCase:=True
a = a + 1
Loop
当a小于900时，循环以下代码。其中
b = Cells(a + 2, "b")为赋值
If b = "" Then
b = "田埂"
End If为判断赋值
最后一个为替换和赋值。
6、具体用法已经给大家说了，也举了两个例子。
上次for循环也没有这么多例子。
