1、在A1单元格输入需要新建的工作表数量
2、右键点击当前工作表名称-查看代码-插入-模块
3、输入代码:
Sub 新建工作表()
a = Range("a1")
For i = 1 To a
Application.Sheets.Add.Name = i
Next
End Sub

4、点击运行,就可以快速新建工作表

时间:2026-02-14 05:18:01
1、在A1单元格输入需要新建的工作表数量
2、右键点击当前工作表名称-查看代码-插入-模块
3、输入代码:
Sub 新建工作表()
a = Range("a1")
For i = 1 To a
Application.Sheets.Add.Name = i
Next
End Sub

4、点击运行,就可以快速新建工作表
