如何快速新建多个工作表？

1、将需要做成表名的字段列在单元格中并进行透视操作：

2、点击【数据透视表工具】下的【分析】在左侧点击【选项】-【显示报表筛选页】

3、点击【确定】后即可生成了对应内容的表

4、在VBA编辑器中打开输入程序：

Sub newsheetss()

Dim i!

For i = 2 To 7

Sheets.Add.Name = Sheet14.Cells(i, 2).Value

Next i

End Sub

5、可在当前worksheet中编辑是2-7行，点击执行即可得结果

6、总结：

1.将需要做成表名的字段列在单元格中并进行透视操作；

2.点击【数据透视表工具】下的【分析】在左侧点击【选项】-【显示报表筛选页】；

3.点击【确定】后即可生成了对应内容的表；

4.在VBA编辑器中打开输入程序；

5.点击执行运行即可.