[已解决]批量新建工作表并重命名

lhlprc

请问：用VBA如何批量新建指定个数的工作表并按要求重命名
如我要新建20个工作表，并要把这20个工作表命名为:1班、2班、3班.......

最佳答案

月排行榜 / 总排行榜

橘子红

2015-4-29 08:39

1. Sub x()
   
2. Dim x
   
3. For x = 1 To 20
   
4. Sheets.Add.Name = 21 - x & "班"
   
5. Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim x
   
3. For x = 1 To 20
   
4. Sheets.Add.Name = 21 - x & "班"
   
5. Next
   
6. End Sub
   

复制代码

爱疯

Sub test1()
    Dim i%
    Application.SheetsInNewWorkbook = 20
    Workbooks.Add
    For i = 1 To 20
        Sheets(i).Name = i & "班"
    Next i
    Application.SheetsInNewWorkbook = 3
End Sub


根据情况，自己去修改吧。

lhlprc

橘子红 发表于 2015-4-29 08:39

谢谢！高手们，非常实用

lhlprc

爱疯 发表于 2015-4-29 08:42
Sub test1()
    Dim i%
    Application.SheetsInNewWorkbook = 20

谢谢！高手们，非常实用