vba复制整个sheet内容_使用VBA快速复制工作表

在“模块1”的代码窗口里面输入以下VBA代码：

Sub AutoCopySheets()

Dim i, j As Integer

i = 1

j = 1

For 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 If

Next

End Sub