小伙伴做好了一个模板，如何快速创建31个一模一样的，每日只需填写数据就好
请看动图效果：
【创建工作表代码】
Sub cr()
On Error Resume Next ‘容错语句，如果代码有错误提示，执行下一条语句
Dim i, m As Integer ‘定义变量为整型
Dim rg As Range ‘定义变量为Range对象
For i = 1 To 31 – Sheets.Count ‘循环语句，从1到31减去工作表的个数
Sheets.Add after:=Sheets(Sheets.Count) ‘新建工作表，位置在当前所有工作表之后
ActiveSheet.Name = i ‘新建工作表的名称为变量i
Sheets(“目录”).[A1:C14].Copy ‘复制目录工作表A1到C14单元格
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
【代码使用方法】
【Step1】点击开发工具选项卡，点击Visual Basic（可以按Alt+F11快捷键来打开）
【Step2】选中Sheet1，右键–插入–模块
【Step3】将上述代码复制粘贴到模块中
【Step4】回到工作表中，在开发工作选项卡下，点击插入–表单控件中的按钮
【Step5】在工作表中随意拖动大小，会弹出指定宏对话框，选择名称为cr的宏确定，这样就做好了创建工作表的按钮：
【Step6】同样的方法，创建一个删按钮，就大功告成了
【注意事项】本例复制的单元格为A1：C14，小伙伴们可以根据实际需要，在代码中改成对应的区域就OK了
喜欢的话请点赞并关注本号，每日都有新的教程发布！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人，不代表IT壹频道。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。转载请注明出处：https://www.1pindao.com/baike/25772.html
