说明：循环语句在我们之后的实战中使用率会极其的高，是我们解决重复工作的利器之一！

循环语句的逻辑图：

For 循环

• 语法

For 循环变量= 初始值 To 终止值 step［步长］
				循环体语句
Next循环变量

循环变量：该参数为必选参数，用于设置循环次数的计数变量名。

初始值：此参数为必选参数，用于设置循环变量的初始值。

终止值：该参数为必选参数，用于设置循环变量的终止值。

步长：该参数为可选参数，用于设置循环变量在每次循环后变化的数值，其默认值为1。

• 实战用法：

需求：用代码计算1月预算。

• 实战代码：

Sub for循环()
    
    Dim i
    
    For i = 5 To 7
    
        Range("C" & i) = Range("B" & i) * Range("B2")
    
    Next

End Sub

• 图示：

For each 遍历

说明：循环指定范围内的所有元素。

• 语法

For Each 成员变量 In 数组或集合对象
				语句块
Next［变量］

成员变量：该参数用于变量数组或对象集合中的所有元素。

数组或对象集合：该参数为数组名或对象集合名称。

语句块：由一条或多条语句组成，我们需求的操作。

• 实战用法：

需求：用代码，在A1：A10单元格填入1-10的数字序号。

• 实战代码：

Sub 序号()
    Dim a As Range, i
    i = 1
    For Each a In Range("A1:A10")
        a = i
        i = i + 1
    Next
End Sub

• 图示：

do while循环

说明：一共有4个循环语句，分别如下：

1. Do While…Loop——先进行条件判断后循环
2. Do…Loop while——先循环后进行条件判断
3. Do Until…Loop——先进行条件判断后循环
4. Do …Loop Until——先循环后进行条件判断

• 流程图

• Do While…Loop

以此为例，其余三项不赘述；此语句使用较多。

1、语法：

Do While 条件判断句
       如果条件为真需要执行的语句
Loop

2、实战用法：

需求：用代码在B列添加一行数字，为A列的每个数字加1.

3、实战代码：

说明：i为循环元素，

Sub dowhile()
    i = 1
    
    Do While Range("a" & i) <> ""         ’----------只要Range("a" & i)不为空，则执行
    
        Range("b" & i) = Range("a" & i) + 1
        
        i = i + 1      ’----------用来循环单元格
        
    Loop

End Sub

4、图示：

说一说：刚开始几篇可能比较枯燥，因为这些基础我们必须理解，知道其用法，后期我将以实际案列，我们一句一句来解读复杂模型里的语句，极其实现的功能。

举个复杂的自动化例子：

要做一个自动搭建预测、月报、预算等模型，如下图：

自动搭建一个模板出来，并且其内部公式自动生成计算逻辑，手工操作包括设置公式在内，可能需要不少于30分钟，还得检查计算是否有误。但是，代码几秒钟就搞定了。只需要你把信息也填好，其他的交给代码就行。

但这都需要我们一步一步的来！

模型动图：