Do Until/while适用于不知道要loop多少次的情况
1. Do until
Sub Simple_Do_Until_V1()
StartCell = 8
Do Until Range("A" & StartCell).Value = ""
Range("B" & StartCell).Value = Range("A" & StartCell).Value + 10
StartCell = StartCell + 1
Loop
End Sub
另一种写法,不同的Do until条件
Sub Simple_Do_Until_V2()
StartCell = 8
Do Until StartCell = 14
Range("B" & StartCell).Value = Range("A" & StartCell).Value + 10
StartCell = StartCell + 1
Loop
End Sub
效果都是一样的=》
2. Do while
同一个