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