根据“日报模板”表格批量生成1日~10日的报表,普通小伙伴没什么好方法,只能一个一个的复制然后修改名称。但如果用VBA来说,只需用一段代码模板运行即可瞬间完成。
完成后的效果图:
步骤演示:
①鼠标右击“日报模板”工作表名称,再点击“查看代码”功能。自动弹出VBA代码录入界面。
②然后我们将下面一段代码模板复制粘贴到VBA录入窗口中。随后点击运行按钮即可。
代码如下所示:
Sub 生成报表()
Dim x As Integer
Dim sh As Worksheet
For x = 1 To 10
Set sh = Sheets.Add
With sh
.Name = x & "日"
Sheets("日报模板").Range("1:15").Copy sh.Range("A1")
End With
Next x
End Sub
③最后我们点击右上角叉号关闭VBA窗口,自动回到Excel表格主界面中,我们发现已经根据“日报模板”表格批量生成1日~10日的报表了!