VBA之用模板创建表

有这样一个模板,想在此模板的基础上,新建很多sheet,每个sheet对应一个日期,并且表里的报表日期和工作表名字一样,如何去实现呢

Sub test()
Dim i As Integer

For i = 1 To 31
Sheet1.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = “5月” & i & “日”
Sheets(Sheets.Count).Range(“e5”) = “2016-5-” & i
Next

End Sub

首先Sheets(Sheets.Count)是表的总数量
Sheet1.Copy after:=Sheets(Sheets.Count)代表在最后一个表后面再复制一个sheet1
Sheets(Sheets.Count).Name代表取名字,运用for循环,让i变成活的