For循环
For Each循环
用于遍历数据集中的所有元素,包括:数组
,对象集
。
语法:
For Each [元素变量] In [元素集合]'循环执行的代码
Next [元素变量]
实例:循环打印所有工作表的名称
Sub printCode()Dim ws As WorksheetFor Each ws In WorksheetsDebug.Print ws.NameNext ws
End Sub
For Next循环
按指定次数,循环执行一段代码。
语法:
For [变量]=[初始值] To [结束值] Step [步长]'循环执行的代码
Next
实例:计算1-10的累加值
Sub printCode()Dim i As IntegerDim sum As IntegerFor i = 1 To 10 Step 1sum = sum + iNextDebug.Print sum
End Sub
Exit For 语句:>用于跳出循环过程
Do While 循环
语法:
Do While [条件表达式]'循环执行的代码
Loop
实例:计算1-10的累加值
点击查看代码
Sub printCode()Dim i As IntegerDim sum As Integeri = 1Do While i <= 10sum = sum + ii = i + 1LoopDebug.Print sum
End Sub
Do...Loop While 循环
语法:
Do'循环执行的代码
Loop While [条件表达式]
Exit Do:用于跳出 Do While 循环。