Excel中可借助VBA批量新建工作表、复制重命名模板表、用透视表“显示报表筛选页”拆分数据至多表，并用VBA将各筛选页导出为独立工作簿。
如果您需要在Excel中批量创建多个工作表，或基于透视表结果将数据自动拆分到独立工作簿，可通过内置功能与VBA脚本高效实现。以下是具体操作步骤：
一、使用VBA批量新建工作表
通过编写VBA宏，可一次性插入指定数量的工作表，并按规则命名。该方法避免手动重复操作，适用于需创建10张以上工作表的场景。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，右键“当前工作簿” → 选择“插入” → “模块”。
3、在右侧代码窗口中粘贴以下代码：
Sub 新建多个工作表()
Dim i As Integer
For i = 1 To 5
Sheets.Add.Name = "Sheet_" & i
Next i
End Sub
4、按 F5 运行宏，将自动生成5张命名为“Sheet_1”至“Sheet_5”的工作表。
二、利用填充序列快速生成同名工作表副本
当已有单张模板工作表时，可通过复制+重命名方式批量生成结构一致的多张表，无需编程，适合基础用户。
1、右键点击目标工作表标签 → 选择“移动或复制”。
2、勾选“建立副本”，在“下列选定工作表之前”下拉框中选择“移至最后”。点击“确定”完成一次复制。
3、按住 Ctrl 键，依次单击已复制出的工作表标签（如Sheet1、Sheet1 (2)），选中多个副本。
4、右键任一选中标签 → “重命名”，输入新名称如“Q1数据”，所有选中工作表将同步更名并自动追加序号（Q1数据、Q1数据 (2)等）。
三、基于透视表字段值批量拆分工作簿
当透视表按某字段（如“销售区域”）汇总数据后，可借助“显示报表筛选页”功能，为每个字段值自动生成独立工作表，并保存为单独文件。
1、确保透视表已添加所需筛选字段（例如“地区”）至“报表筛选”区域。
2、点击透视表任意单元格 → 切换到“分析”选项卡（Excel 2013+）或“选项”选项卡（Excel 2010）。
3、点击“显示报表筛选页” → 在弹出对话框中选择用于拆分的字段（如“地区”）→ 点击“确定”。
4、Excel将为该字段每个唯一值（如华北、华东、华南）分别创建一张新工作表，内容为对应区域的透视表及源数据快照。
四、用VBA将透视表结果导出为独立工作簿
若需将每张透视表筛选页另存为单独的.xlsx文件，可运行导出宏。该脚本会遍历所有筛选页工作表，逐个新建工作簿并粘贴数值结果。
1、按 Alt + F11 打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub 拆分透视表到独立工作簿()
Dim ws As Worksheet, newWb As Workbook
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "地区*" Then
Set newWb = Workbooks.Add
ws.UsedRange.Copy
newWb.Sheets(1).PasteSpecial xlPasteValues
newWb.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
newWb.Close SaveChanges:=False
End If
Next ws
Application.ScreenUpdating = True
End Sub
3、运行宏前，请确认所有待拆分的工作表名称以“地区”开头（或其他统一前缀），否则需修改代码中的 Like "地区*" 部分。
