作者 : 金人瑞(郑广学Excel VBA 175例实战教程学员)

最近正在学习郑广学老师的VBA 175例教程，本文是新手整理出来的笔记，虽然名字高大上但内容多为基础，也难免有错误，希望大家批评指正。

循环基础1>>循环的种类与解释

1.1 数值型变量循环

写法为For i = …to …/next 循环变量一般为数值且知道具体对象，步长值（step）为1的时候可省略不写，为负数时是倒着循环，删除空白单元格的时候通常是倒着循环

左侧为代码，右侧为代码执行结果，这种循环的变量（i）一般是数值

1.2 对象型变量循环

写法为For each…/next 一般只知道对象种类和具体的范围，求出具体对象数量相对麻烦的时候使用

左侧为代码，右侧为结果，我们可以通过执行结果看到for each/next 循环其实是按照先行后列的顺序执行的

1.3 动作型循环

写法DO while(until)…/loop和while…/wend三种,都是在省略号处写循环的启动或者终止条件,其中DO/loop循环中,while(until)可以放在do后面也可以放在loop后面 ,这样做的区别是do语句是第一次循环执行的前后做判断.

左侧代码,右侧结果,需要注意的是do循环的终止条件为i小于某个数值得时候必须加i= i+1这样的递推否则很容易会陷入死循环

循环基础2>>循环的推进原理

2.1 单路线连接型循环

上面代码,下面结果:两套循环系统,互不干涉,在写代码时一定要思考清楚需要几个循环系统,是否循环需要分开

2.2 单路线包裹型循环

上面的实例可以改造,变成包裹型循环,具体写法是for(for each)循环中套一层for(for each)循环

上面代码,下面结果,一般情况下,包裹型循环单元格的特点很类似for each循环单元格,只不过for each循环是先选择循环每一行的区域,选定行以后再循环该区域内的每一个单元格,可以参考上面的for each循环,而循环包循环则可以先选择列来循环,再循环每一列区域内的单元格.

2.2 多路并进循环

这将是本文的重点,写法是在任意一个循环进程内写入if判断语句,符合判断则累加推进另外一个进程

实例图片以及说明

我们要把每一个质检员的结果填入下表,但是又不能留有空格.这个时候我们就可以设计一个多路并进的循环结构.详情看代码以及注释

代码中我们可以看到多路并进其实是利用已知的循环控制未知的路线过程.

补充：退出循环可以用if判断,符合条件使用exit for 语句就行(exit do).这里不再多整理,但是需要提到的是，一般不建议使用goto语句,很容易把自己搞晕

最后说一点学习VBA的经历希望对新人有用

一开始也是找各种免费课，速成课，看完速成课的最大结果其实是他给的案例你会，你自己的案例不会，还不容易百度到了吧，黄花菜都老了，这不是VBA应该有的效率，我要的是高效率，不仅快捷还要方便。于是我在QQ阅读买了书，又买了纸质书！加了群，可还是那样，书里面只带你入门，他写的很多我都会，不会的也看不懂，场面一度极其尴尬。究竟什么是提高？究竟如何才能提高？这两个问题直到我在b站看到了郑老师我才反应过来，真正的高手是能在一瞬间就有思路怎样去处理数据，也能在很短的时间里面调用写好的模块。这才是真正的高效率。这也恰恰是这么长时间我在其他课程里面没听到的东西，虽然前面走了很多弯路，不过这一个月来我每天上厕所都要看老师的视频，VBA水平突飞猛进，学习上瘾的这种感觉，比打游戏上瘾还强烈！！！