Excel：根据数据信息自动生成模板数据（多个Sheet）

适用场景

        每个月根据天数生成多个Sheet模板（比如9月份生成30个Sheet）

日期Sheet

模板Sheet

VBA实现

        开发工具：VBA

Sub copydata()Dim i As IntegerDim j As IntegerApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor i = 1 To Sheets.CountIf Sheets.Count >= 3 ThenSheets(3).DeleteEnd IfNexti = Sheets("日期").UsedRange.Rows.Count - 1 '共有多少条数据For j = 1 To iSheets("模板").Copy after:=Sheets(j + 1) '复制模板数据Sheets(j + 2).Name = Format(Sheets("日期").Cells(j + 1, 1).Value2, "yyyy-mm-dd") '修改Sheet名字Sheets(j + 2).Cells(1, 2) = "拼接的信息" & Format(Sheets("日期").Cells(j + 1, 1).Value2, "yyyy-mm-dd") '填充数据'Format格式话日期（不格式的话带周几，不知道为啥）NextApplication.ScreenUpdating = TrueEnd Sub

添加执行按钮

开发工具-插入-表单控件（第一个）不知道为啥不能截图

选择对应的宏名，点击确定

最后：如果有什么问题，请大家一起补充交流学习