快速新建工作表

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

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

3、输入代码：Sub 新建工作表()a = Range("a1")For i = 1 To aApplication.Sheets.Add.Name = iNextEnd Sub