可通过VBA宏、Power Query或第三方插件将Excel多区域数据拆分为独立工作簿。首先推荐使用VBA宏，按分类列自动创建文件；其次可用Power Query分组导出；最后可借助Kutools等插件一键拆分，提升效率。
如果您需要将一个包含多个数据区域的Excel工作表拆分为多个独立的工作簿文件，以便于分发或归档，可以通过多种方式实现自动化处理。手动复制粘贴不仅耗时且容易出错，因此推荐使用更高效的方法完成拆分任务。
本文运行环境：Dell XPS 13，Windows 11
一、使用VBA宏代码自动拆分工作表
通过编写VBA宏代码，可以根据某一列（如部门、地区等）的唯一值自动将数据拆分为多个独立工作簿，并为每个工作簿命名保存。
1、按下 Alt + F11 打开VBA编辑器，在项目资源管理器中右键点击工作簿名称，选择“插入” > “模块”。
2、将以下代码粘贴到模块窗口中：
Sub SplitSheetToWorkbooks()
Dim LastRow As Long, i As Long
Dim ws As Worksheet
Dim dict As Object
Set ws = ThisWorkbook.Sheets(1) ' 修改为需要拆分的工作表
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设A列为分类字段
Set dict = CreateObject("Scripting.Dictionary")
For i = 2 To LastRow ' 假设第一行为标题行
If Not dict.Exists(ws.Cells(i, 1).Value) Then
dict.Add ws.Cells(i, 1).Value, Nothing
End If
Next i
Dim key As Variant
For Each key In dict.Keys
Dim newWb As Workbook
Set newWb = Workbooks.Add
ws.Rows(1).Copy Destination:=newWb.Sheets(1).Rows(1)
Dim j As Long
For j = 2 To LastRow
If ws.Cells(j, 1).Value = key Then
ws.Rows(j).Copy Destination:=newWb.Sheets(1).Cells(newWb.Sheets(1).Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next j
newWb.SaveAs ThisWorkbook.Path & "\" & key & ".xlsx"
newWb.Close SaveChanges:=False
Next key
MsgBox "拆分完成！"
End Sub
3、修改代码中的分类列（例如从"A"改为"B"）和工作表索引以匹配实际数据结构。
4、关闭VBA编辑器，返回Excel，按下 Alt + F8 运行宏，选择“SplitSheetToWorkbooks”并执行。
二、利用Power Query与公式辅助拆分
此方法适用于不想使用VBA的用户，通过创建唯一值列表并导出每组数据为单独查询，再加载为新工作簿。
1、在原始数据旁新增一列作为标识列，使用公式提取分类字段，例如：=A2（假设A列为分类依据）。
2、选中数据区域，点击“数据”选项卡下的“获取和转换数据” > “从表格/区域”导入Power Query编辑器。
3、在Power Query中，右键点击分类列，选择“按此列分组”，操作类型选择“所有行”。
4、展开分组后的“子表”列，确保仅保留所需字段。
5、点击“高级编辑器”，复制每个子查询的M代码，然后新建空白查询逐一粘贴并命名。
6、依次右键每个查询，选择“加载至...”，在弹出窗口中选择“仅创建连接”或“新工作表”，也可导出到Excel文件。
三、借助第三方插件快速拆分
某些Excel增强插件（如Kutools for Excel）提供“拆分工作表”功能，可一键根据指定列拆分为多个工作簿。
1、安装并启用Kutools for Excel插件后，在功能区找到“Kutools”选项卡。
2、点击“工作表”组中的“拆分工作表”按钮。
3、在弹出对话框中选择用于拆分的列字段，设置输出路径。
4、确认选项无误后点击“确定”，插件会自动为每个唯一值生成一个独立的Excel文件。
5、检查输出目录中的文件是否完整，核对数据准确性。
