快速新建工作表

1、在A1单元格输入需要新建的工作表数量

2、右键点击当前工作表名称-查看代码-插入-模块

3、输入代码：

Sub 新建工作表()

a = Range("a1")

For i = 1 To a

Application.Sheets.Add.Name = i

Next

End Sub

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