在前一篇文章中，我們分享了VB中for循環(huán)的用法。這次，我們將介紹do while loop的用法。 基本語(yǔ)法 do while loop的基本語(yǔ)法如下： Sub aaa() Di

在前一篇文章中，我們分享了VB中for循環(huán)的用法。這次，我們將介紹do while loop的用法。

基本語(yǔ)法

do while loop的基本語(yǔ)法如下：

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

當(dāng)a小于900時(shí)，循環(huán)執(zhí)行l(wèi)oop內(nèi)的代碼。

實(shí)例一

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

這個(gè)實(shí)例中，當(dāng)單元格"r"的c不為空時(shí)，循環(huán)執(zhí)行以下代碼。

實(shí)例二

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

這個(gè)實(shí)例中，當(dāng)a小于900時(shí)，循環(huán)執(zhí)行以下代碼。其中，b Cells(a, "b")表示賦值操作，如果b為空，則賦值為"田埂"。最后一行代碼是替換和賦值的操作。

以上就是do while loop循環(huán)在Excel VBA中的基本用法和幾個(gè)實(shí)例介紹。希望對(duì)大家有所幫助！