第四课 循环语句

• 1.for to next 循环

Sub 循环1()
    Dim i As Integer
    For i = 2 To 18 Step 1  'i后要有等于号，step后不加等于号'
        Range("c" & i) = Range("b" & i) * Range("a" & i)
    Next i
End Sub

• 2. for each in next 循环
  常用于找不到循环的规律时

Sub 循环2()
Dim rg As Range
    For Each rg In Range("a1:b7,d5:e9")
        If rg = "" Then
            rg = 0
        End If
    Next rg
End Sub

image.png
image.png

• 3.do loop until循环（判断在后）
  当条件一直不满足时，很容易造成死循环，按ctrl+break强制终止。中间跳出循环可以用exit do 跳出循环

Sub 循环5()
Dim x As Integer
x = 0
Do
    x = x + 1
    If Cells(x + 1, 1) <> Cells(x, 1) + 1 Then
        Cells(x, 2) = "断点"
        Exit Do  '跳出循环'
    End If
Loop Until x = 14
End Sub

• 4.do while loop 循环(先判断条件)

Sub 循环6()
 Dim x As Integer
 x = 0
 Do While x < 18
    x = x + 1
    Cells(x, 4) = Cells(x, 2) * Cells(x, 3)
 Loop
End Sub