ExcelVBA | 循环语句之Do-loop

动图效果演示

实例教学很nice！又学会了一个循环语句的写法。

Doloop代码

Sub Doloop() '达到条件了就退出
    Dim i
    Sheet3.Activate '激活表三
    Range("a:A").ClearContents
    '清空A列,填充数据前最好是先清空该区域
    i = 1 '定义一个初始值
    Do Until i > 8 '当i大于8时就停止
        Range("a" & i) = i
        i = i + 1
    Loop
    
End Sub