前面我们已经介绍过很多关于VBA的基础知识和具体的应用了，包括VBA的对象，属性，方法，单元格（区域）的引用。 

但是对于基础的语句应用还是比较少的。掌握VBA的循环语句，能帮助我们解决工作中很多重复的工作。 

下面通过得出2017年的所有周日的日期来介绍VBA循环语句的应用。

详细源码：

Sub 取出2017年所有周日的日期()

    a = DateSerial(2017, 1, 1) '赋予a的值为日期：2017-1-1

    b = DateSerial(2018, 1, 0) '赋予b的值为日期：2018-1-0，代表2017-12-31

    For c = a To b '遍历a到b中的所有日期

        If Weekday(c, 2) = 7 Then '通过weekday函数判断c转换成周单位时，是否等于周日

            i = i + 1 'i累加1

            Cells(i, 1) = Format(c, "yyyy-mm-dd") '如果日期为周日，则在相应的单元格填充为周日的日期

        End If '结束判断

    Next c '结束循环

End Sub

动态效果图：