1、将需要做成表名的字段列在单元格中并进行透视操作：
2、点击【数据透视表工具】下的【分析】在左侧点击【选项】-【显示报表筛选页】
3、点击【确定】后即可生成了对应内容的表
4、在VBA编辑器中打开输入程序：Sub newsheetss()Dim i!For i = 2 To 7Sheets.Add.Name = Sheet14.Cells(i, 2).ValueNext iEnd Sub
5、可在当前worksheet中编辑是2-7行，点击执行即可得结果
6、总结：1.将需要做成表名的字段列在单元格中并进行透视操作；2.点击【数据透视表工具】下的【分析】在左侧点击【选项】-【显示报表筛选页】；3.点击【确定】后即可生成了对应内容的表；4.在VBA编辑器中打开输入程序；5.点击执行运行即可.