前面我们已经介绍过很多关于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
动态效果图：
