windowns下excel2013快速生成月报表

时间：2021-10-10 04:48:46

　　作者:邓聪聪

　　windowns下excel快速生成月报表，省去了手工复制繁琐的过程

Sub AutoCopySheets()

Dim i, j As Integer

i = 1

j = 11

For i = 1 To 1

j = j + 1

    Sheets("2016.11").Copy After:=Sheets(Sheets.Count)

    Sheets(Sheets.Count).Name = "2016" & "." & j

    Sheets(Sheets.Count).Range("A2") = "2016年" & j & "月 第一周"

    Sheets(Sheets.Count).Range("A27") = "2016年" & j & "月 第二周"

    Sheets(Sheets.Count).Range("A55") = "2016年" & j & "月 第三周"

    Sheets(Sheets.Count).Range("A81") = "2016年" & j & "月 第四周"

Next

Dim a, b As Integer

a = 1

b = 0

For a = 1 To 10

b = b + 1

    Sheets("2016.11").Copy After:=Sheets(Sheets.Count)

    Sheets(Sheets.Count).Name = "2017" & "." & b

    Sheets(Sheets.Count).Range("A2") = "2017年" & b & "月 第一周"

    Sheets(Sheets.Count).Range("A27") = "2017年" & b & "月 第二周"

    Sheets(Sheets.Count).Range("A55") = "2017年" & b & "月 第三周"

    Sheets(Sheets.Count).Range("A81") = "2017年" & b & "月 第四周"

Next

End Sub

相关文章