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

>>阅读原文<<