课件下载 ：
方式1：本节课件下载地址：链接: https://pan.baidu.com/s/1K51AlChFb-N-zsyCtcdm4A 密码: xpwn
方式2：或点击此处下载
效果图
代码示例：
Sub 日报() For i = 1 To 30 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "5月" & i & "日" Sheets(Sheets.Count).Range("e5") = "2018-05-" & i Next End Sub
分享是快乐的，也见证了个人成长历程，文章大多都是工作经验总结以及平时学习积累，基于自身认知不足之处在所难免，也请大家指正，共同进步。
