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.点击执行运行即可.