[已解决]请教批量复制重命名工作表

擦声而过

本人菜鸟一只，请教如何批量“”0101“工作表复制40份，名称依次为”0102“、”0103“.....”0140“。万分感谢！！

最佳答案

月排行榜 / 总排行榜

Tank008

2015-10-28 17:30

1. Sub 复制工作表()
   
2.     Dim i As Integer
   
3.     For i = 2 To 40
   
4.         Sheets("0101").Copy After:=Sheets(Sheets.Count)
   
5.         ActiveSheet.Name = "01" & Format(i, "00")
   
6.     Next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

Tank008

1. Sub 复制工作表()
   
2.     Dim i As Integer
   
3.     For i = 2 To 40
   
4.         Sheets("0101").Copy After:=Sheets(Sheets.Count)
   
5.         ActiveSheet.Name = "01" & Format(i, "00")
   
6.     Next i
   
7. End Sub

复制代码