退出某語句，我們前面都是用exit，退出程序用end，exit可用于退出for next，也可用于do loop循環。今天我們來學習退出DO LOOP語句的另外兩個語句，until和while。

還是前面講的例子：

在A1單元格中數字累加到10：

用Until判斷時語句如下：

Sub 退出循環()

Dim N%

Do Until N > 9

N = N + 1

Range("A1") = N

Loop

End Sub

Until N > 9， 意思時直到N>9才停止循環，先判斷N是否大于9，不大于就執行，大于就停止。所以是先判斷后執行。

用while判斷時語句如下：

Sub 退出循環1()

Dim N%

Do

N = N + 1

Range("A1") = N

Loop While N < 10

End Sub

While N < 10，意思是當N小于10時就循環DO下面的語句，是先執行后判斷。

實際應運舉例：

前面章節講過的例子，當時我們用DO LOOP來寫是：

Sub 計算金額()

Dim ro%

ro = 1

Do

If Cells(ro + 1, "c") = "" Then

Exit Do

Else

ro = ro + 1

Cells(ro, "f") = Cells(ro, "d") * Cells(ro, "e")

End If

Loop

End Sub

用一個if進行判斷，條件成立則exit do。

學習了今天的內容以后，我們可以對上面的代碼進行修改：

Sub 計算金額()

Dim ro%

ro = 1

Do until Cells(ro + 1, "c") = ""

ro = ro + 1

Cells(ro, "f") = Cells(ro, "d") * Cells(ro, "e")

Loop

End Sub

或者是：

Sub 計算金額()

Dim ro%

ro = 1

Do

ro = ro + 1

Cells(ro, "f") = Cells(ro, "d") * Cells(ro, "e")

Loop while Cells(ro + 1, "c") <>""

End Sub

是不是比用if判斷顯得更加簡潔呢？

轉自：米宏Office

總結

以上是生活随笔為你收集整理的while循环语句用法_EXCEL退出DO LOOP循环语句｜until、while的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。