ExcelVBA do while loop循环的用法

1、ExcelVBA do while loop循环的用法上次分享了VB中for循环的用法，这次给大家分享do while loop 的用法。

2、Sub aaa()dim aDo While a < 900。。。中间加代码。。。LoopEnd 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 < 900b = Cells(a + 2, "b")If b = "" Thenb = "田埂"End IfColumns("O:R").Replace _ What:=a, Replacement:=b, _ SearchOrder:=xlByColumns, MatchCase:=True a = a + 1 Loop当a小于900时，循环以下代码。其中b = Cells(a + 2, "b")为赋值If b = "" Thenb = "田埂"End If为判断赋值最后一个为替换和赋值。

6、具体用法已经给大家说了，也举了两个例子。上次for循环也没有这么多例子。