在这个颜值当道，屌丝闪边的时代，拼不过颜值拼内涵，只有知识丰富才能提升一个人的内在气质和修养，所谓人丑就要多学习，今天图老师给大家分享vba do loop的几个例子，希望可以对大家能有小小的帮助。
【 tulaoshi.com - Excel教程 】
一、DoLoop语句的语法
Do[While I Until逻辑表达式]
循环体
Loop[While I Until逻辑表达式]
当逻辑表达式的值为True时，使用While关键字执行循环体，直到逻辑表达式的值为False时跳出循环体，即执行Do While-Loop循环语句。
当逻辑表达式的值为False时，使用Until关键字执行循环体，直到逻辑表达式的值为True时跳出循环体，即执行Do Until-Loop循环语句。
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）在大多数情况下Do while.Loop循环语句与Do UntilLoop循环语句可以互换使用，只需将循环条件取反即可。但对于需要先判断再执行的一些操作，最好使用Do While-Loop循环语句。
另外，使用Do-Loop循环语句时，需要在循环体内使用Exit Do语句跳出Do-Loop循环，进而执行Loop后面的一条语句。
二、doloop的几个例子
①例子
Dim myCnt As Long
myCnt = 1
Do While myCnt = 5
Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）myCnt = myCnt + 1
Loop
当myCnt小于等于5时循环，否则就退出循环。
②例子
Dim myCnt As Long
myCnt = 1
Do
Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）myCnt = myCnt + 1
Loop While myCnt=5
③例子
Dim myCnt As Long
myCnt = 1
Do
Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com）myCnt = myCnt + 1
If myCnt5 Then Exit Do
Loop
④例子
counter = 0
myNum = 9
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
If myNum 10 Then Exit Do
Loop
MsgBox "The loop made " & counter & " repetitions."
来源:http://www.tulaoshi.com/n/20160219/1606172.html
看过《vba do loop的几个例子》的人还看了以下文章 更多>>
