Excel 如何自动填充日期，并填充至正确格子内

Question

如附图;每一个日期是一页纸，修改第一页的日期后，后面的每一页都会自动调整为正确日期？如果第一行输入2017年7月1日，表格就会自动生成至2017年7月31日如果第一行输入2017年6月1日，表格自动自动生成至2017年6月30日以前看过别人做，自己实现不了，求大神帮帮忙！！！
尝试了一楼大神的方法，还是不行，不知道哪里错了....@@

Answer 1

下面的单元格写入公式

判断月大，月小，加IF

如果间隔行数相同，就简单点

=DATE(YEAR($C$1),MONTH($C$1),DAY($C$1)+COUNTIF($C$2:C6,"人数"))

追问

谢谢你，不过可以一个步骤一个步骤来吗？看不太懂......
有点笨，Excel使用不熟悉，拜托了

追答

这个动画，演示的很清楚了哦
复制公式都这样？
发你表到邮箱

Answer 2

工作表按日期一页一表，假设已有31个工作表（表标签无所谓）
假设日期单元格为A1
宏处理
Sub 宏1()

Dim d As Date
Dim n, i As Integer

Sheets(1).Select
d = Range("A1").Value
n = Day(DateValue(CStr(Year(d)) & "-" & CStr(Month(d) + 1) & "-1") - 1)
For i = 1 To n
Sheets(i).Select
Sheets(i).Name = CStr(Year(d)) & "-" & CStr(Month(d)) & "-" & CStr(i)
If i > 1 Then Range("A1") = d + i - 1
Next i

End Sub本回答被网友采纳