B4单元输入：
=DATE(A1,C1,1)
C4单元格输入：
=IF(B4="","",IF(MONTH(B4+1)=$C$1,B4+1,""))
右拉公式
选中B4：AF4，设置单元格格式，自定义为：d
B5单元格输入：
=B4
设置B5：AF5单元格格式为：日期下，星期
效果：
vba还是公式？公式可以用 today 函数 VBA可以使用 date 函数非常简单的。
