作者:乔山办公网日期:
返回目录:excel表格制作
我们在Excel中建好了一个报表模板,当我们想要每月30日都使用该模板的时候,是否需要创建30个工作表,再将模板复制30份呢只需要一个按钮,加上简单的几句VBA代码,实现以上功能,请看示例
将以上表格中的模板,建立30份到30个工作表中,请看动图演示:
创建工作表代码:
Sub cr()
On Error Resume Next
Dim i, m As Integer
Dim rg As Range
For i = 1 To 31 - Sheets.Count
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
Sheets("目录").[A1:C14].Copy
ActiveSheet.Paste
Next
Sheets("目录").Select
End Sub
删除工作表代码:
如果你觉得很神奇,请点赞并关注,后续给出代码解释,任何疑问,请在评论区中留言讨论!Sub dl()
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "目录" Then
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub