【跟我学Excel VBA】第十课：循环，又见循环！！

2016年马上结束了！

从12月起，跟我学VBA系列课程已经写了9课了。感谢持续关注并给予鼓励的各位朋友。

回顾这9期课程，我们自己在心里想一下：

这9课都讲了些什么？

哪些是重点？

我会哪些 ？

我又跟着敲打过几次代码？

VBA真的有用么？？？？？？？

如果，我是说如果，你只是看了，连试都没有试过一次的话，那么笔者建议还是不要学VBA了，这个真的难，很难，超级难！！！

读代码难，写代码难，把别人的代码变成自己的更难！！

今天，我们继续循环！

我们学了For Next循环，也学了Do Loop循环，但这不够，我们还得掌握一个循环，那就是针对对象的特殊循环，For Each循环：

语法：For Each 对象变量 In 对象集合

例1： Dim rg As Range                                             ‘单元格对象

           For Each rg In Range('a1:b10')

例2： Dim sh As Worksheet                                     '工作表对象

           For Each sh In worksheets

例3： Dim sp As Shape                                           '图形对象

           For Each sp In Activesheet.Shapes

=================

下面，我们以单元格对象为例，简单的示范一下这个循环的要点：

当然，这个是可以用For Next，也可以用Do Loop，有兴趣的朋友下来可以一试。

代码如下：

     

代码解析：

With rg....End With：因为长期要调用rg这个对象，所以将这个对象引用，以简化代码，前面已经提过，再次提示！

Offset(0,-1)：引用成绩列，在前面的文件也介绍过。

下面，我们将引用一个新的条件判断语句，一起介绍给大家，请看以下改写的代码：

这样的代码，是不是更简单一些。

新知识点：

今天，不打算再讲新知识了。

讲得再多，也不如我们敲打多几次来得有意义。

VBA代码的熟练程序是累积的，不拿时间来沉淀，根本没有任何意义。