如何使用宏在Excel中的两个日期之间拆分日期？

Question

我有一个要求，我需要在两个日期（开始日期和结束日期）之间分割日期。

例如：我的开始日期为2014年12月1日，结束日期为2014年12月31日。 我怎样才能拥有应该填充日期（仅限星期日）的宏代码，如：

7-Dec-2014   14-Dec-2014  21-DEc-2014  28-Dec-2014  

在行中。

Answer 1

您必须使用WeekDay函数，此函数的可能值为

vbSunday（1）
vbMonday（2）
vbTuesday（3）
vbWed Wednesday（4）
vbThursday（5）
vbFriday（6）
vbSaturday（7）

Sub LoopDates()
Dim d As Date
'Loop the days between two dates.
For d = DateSerial(Year(Now), Month(Now), Day(Now)) To DateSerial(2015, 3, 1)
  If Weekday(d) = vbSunday Then
   Debug.Print d
  End If
Next
End Sub