这两个方法都用于循环和迭代。如果你想使用For，只需给予它一个开头和一个结尾

Dim i As Integer
    
    For i = 0 To 3
        'put your code in here and it will loop 4x (i = 0, i = 1, i = 2 and i = 3)
    Next i
    
    'you can put your condition for the loop to exit either at the Do or Loop by using until
    i = 0
    
    Do Until i = 3
        'although start from 0, but it will loop 3x because when it hit i = 3 it will stop (i = 0, i = 1, i = 2 and i = 3)
        i = i + 1 'remember to increment your counter, before leaving the loop the counter had changed to 1 
    Loop
    
    i = 0
    
    Do
        'although start from 0, but it will loop 3x because when it hit i = 3 it will stop (i = 0, i = 1, i = 2 and i = 3)
        i = i + 1 'remember to increment your counter
    Loop Until i = 3

还有很多不同的写法。
你可以用单元格迭代来完成循环

Dim cell As Object 'late binding, early binding can write Dim cell as range
        
    For Each cell In ThisWorkbook.Range("A1:A20")
        'do something
    Next cell

你甚至可以用你自己的条件来设置止损

Do
    If x = 1 Then
        ThisWorkbook.Range("A1").Value = "True"
    End If
Loop Until ThisWorkbook.Range("A1") = "True"

如果您已经达到了想要的结果，您甚至可以退出Do或Exit For。

Dim i as Integer, temp as string

For i = 0 To 3
    If ThisWorkbook.Range("A" & i).Value2 = "True" Then
        temp = "hey, I found what I am looking for"
        Exit For
    End If
Next i