Excel VBA do while loop循环的用法

在前一篇文章中，我们分享了VB中for循环的用法。这次，我们将介绍do while loop的用法。

基本语法

do while loop的基本语法如下：

Sub aaa()
    Dim a
    Do While a < 900
        ' 在这里添加代码
    Loop
End Sub

当a小于900时，循环执行loop内的代码。

实例一

Do While Cells(c, "r") <> ""
    ccc  ccc   1
    mj1  Cells(c, "r")
    mj1  mj1   1
    c  c   1
    Worksheets("Sheet1").Cells(cccc, "i")  mj1
Loop

这个实例中，当单元格"r"的c不为空时，循环执行以下代码。

实例二

Do While a < 900
    b  Cells(a, "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, "b")表示赋值操作，如果b为空，则赋值为"田埂"。最后一行代码是替换和赋值的操作。

以上就是do while loop循环在Excel VBA中的基本用法和几个实例介绍。希望对大家有所帮助！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。