ExcelVBA | 循环语句之Do-loop

动图效果演示

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

图片[1]-ExcelVBA | 循环语句之Do-loop-习听风雨

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
「如果文章对您有用,欢迎点赞分享。」
© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发

请登录后发表评论

    请登录后查看评论内容