Excel实现提取2017年所有周日的日期

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

1502527585832621.gif