1、打开工作表，点击【开发工具】，【Visual Basic 】。
3、在“模块1”的代码窗口里面输入以下VBA代码：Sub AutoCopySheets猾诮沓靥()Dim i, j As Integeri = 1j = 1For i = 1 To 30 媪青怍牙'循环30次，相当于复制30个工作表j = j + 1 Sheets("8.1").Copy After:=Sheets(Sheets.Count) '复制工作表《8.1》 Sheets(Sheets.Count).Name = "8" & "." & j '重命名工作表 Sheets(Sheets.Count).Range("G4") = "2017年8月" & j & "日" '单元格G4自动填写相应的日期 If j Mod 7 = 5 Or j Mod 7 = 6 Then '判断表格的日期是否是星期六或星期天，如果是，则改变工作表标签颜色 With ActiveWorkbook.Sheets(Sheets.Count).Tab .Color = 255 '工作表标签改成红色 .TintAndShade = 0 End With End IfNext End Sub
5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错。（在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。）
