三大结构：顺序、选择、循环
选择
If 条件表达式 Then
真执行的,语句1
ElseIf 条件表达式
假执行的,语句2
Else
上面情况都不满足执行则执行本，语句3
End If
循环
For循环
For … Next 循环
For Each 循环
- For...Next循环
//For … Next 循环
For [变量] = [初始值] To [结束值] Step [步长] //Step不写 步长默认为1
//这里是循环执行的语句
Next [变量]
//For Each 循环
For [变量] = [初始值] To [结束值] Step [步长]
//这里是循环执行的语句
Next [变量]
//E.g：
Sub MyCode()
Dim i As Integer
Dim sum As Integer
For i = 1 To 10
sum = sum + i
If sum > 30 Then
Exit For //Exit For相当于C语言中的break;跳出结束循环。在VBA中仅用于For...Next和For Each
End If
Next
End Sub- For Each循环
//For Each循环
For Each [元素] In [元素集合]
//循环执行的代码
Next [元素]
//E.g：
Sub MyCode()
Dim sh As Worksheet
For Each sh In Worksheets
Debug.Print sh.Name
Next sh
End Sub
Do While循环
Do While … Loop 循环
Do … Loop While 循环
- Do While … Loop 循环
//Do While … Loop 循环
Do While [条件表达式]
'循环执行的代码
Loop
//E.g：
Sub MyCode()
Dim i As Integer
Dim sum As Integer
i = 1
Do While i <= 10
sum = sum + i
If sum > 30 Then
Exit Do //Exit Do和Exit For一样，相当于C语言中的break;跳出结束循环。在VBA中仅用于Do While系列循环
End If
i = i + 1
Loop
End Sub- Do … Loop While 循环(至少一次)
//Do … Loop While 循环与上一种 Do 循环不同的是，
//Do ... Loop While循环至少循环执行代码一次后，再判断条件表达式的值。
//基本语法如下：
Do
//循环执行的代码
Loop While [条件表达式]
//E.g：
Sub MyCode()
Dim i As Integer
Dim sum As Integer
i = 1
Do
sum = sum + i
i = i + 1
Loop While i <= 10
End Sub
Do Until 循环
Do Until … Loop 循环
Do … Loop Until 循环
- Do Until … Loop 循环
//Do Until … Loop 循环
//循环开始前判断 Until 后条件表达式的值，如果是真，停止循环；如果是假，继续执行循环。
//基本语法如下：
Do Until [条件表达式]
//循环执行的代码
Loop- Do … Loop Until 循环(至少一次)
//Do … Loop Until 循环 //先运行一次，再判断 Until 后条件表达式的值，如果是真，停止循环；如果是假，继续执行循环。 //基本语法如下： Do '循环执行的代码 Loop Until [条件表达式]
本文来源转载：https://www.lanrenexcel.com/vba-program-loop-structure/
