如何使用宏在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）
vbWednesday（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