答案：可通过筛选复制、VBA宏、Power Query或第三方插件将Excel按条件拆分为多表。首先使用筛选功能手动分离小数据量分类；其次利用VBA脚本自动按列值生成工作表，提升大批量处理效率；再通过Power Query加载数据并按列分组展开，实现结构化拆分与刷新；最后可借助Kutools等插件一键完成拆分操作，适用于频繁处理场景。
如果您需要将一个包含大量数据的Excel表格按特定条件分割为多个独立的工作表，以便于分类管理或分发给不同人员处理，则可以通过多种方式实现拆分操作。以下是详细的分表方法说明。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11。
一、使用筛选与手动复制创建分表
该方法适用于数据量较小且分类标准明确的情况，通过人工筛选后复制粘贴到新工作表中，操作直观易懂。
1、打开目标Excel文件，选中数据区域的任意单元格，点击“开始”选项卡中的“排序和筛选”按钮，选择“筛选”功能。
2、在表头出现的下拉箭头中，根据某一列（如“部门”）选择需要分离的类别值，例如“销售部”。
3、筛选出对应数据后，选中所有可见行（可使用Ctrl + A两次确保仅选中可见单元格），右键选择“复制”。
4、在底部工作表标签处点击“+”号新建一个工作表，命名为对应分类名称，如“销售部数据”，双击进入该表并右键粘贴数据。
5、返回原始工作表，清除筛选条件，重复上述步骤处理其他分类项。
二、利用VBA宏自动拆分工作表
当数据量庞大或需频繁执行拆分任务时，使用VBA脚本可大幅提升效率，实现按某一字段唯一值自动生成多个工作表。
1、按下Alt + F11打开VBA编辑器，在左侧工程资源管理器中右键点击当前工作簿，选择“插入” → “模块”。
2、将以下代码粘贴至代码窗口，注意根据实际调整字段列号和数据范围：
Sub 拆分工作表()
Dim Rng As Range, cell As Range
Dim ws As Worksheet, sh As Worksheet
Set ws = ActiveSheet
Set Rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
For Each cell In Rng
If Not Evaluate("ISREF('" & cell.Value & "'!A1))") Then
Sheets.Add.Name = cell.Value
End If
ws.Rows(1).Copy Sheets(cell.Value).Range("A1")
ws.Rows(cell.Row).Copy Sheets(cell.Value).Cells(Sheets(cell.Value).Rows.Count, "A").End(xlUp).Offset(1, 0)
Next cell
End Sub
3、关闭VBA编辑器，返回Excel，按下Alt + F8调出宏列表，选择“拆分工作表”并运行。
4、系统会根据指定列中的每个唯一值创建新的工作表，并将对应行数据写入相应表中。
三、借助Power Query按列拆分导出
Power Query提供强大的数据转换能力，适合结构化数据的智能拆分与清洗，支持后续刷新更新数据源。
1、选中原始数据区域，点击“数据”选项卡下的“从表格/区域”按钮，将数据加载为Power Query查询对象。
2、在Power Query编辑器中，右键点击用于拆分的主分类列（如“地区”），选择“按列拆分” → “按此列分组”。
3、在弹出的对话框中设置聚合操作，选择“所有行”作为操作类型，保留原始记录。
4、点击确定后，生成一组嵌套表，点击每组右侧的展开图标，选择要显示的字段进行展开。
5、依次选中每个子表内容，点击“主页”选项卡中的“关闭并上载至”，选择“仅创建连接”或“新工作表”输出结果。
四、使用第三方插件快速拆分
部分Excel增强插件（如Kutools for Excel）提供了“拆分工作表”功能，简化多表生成流程。
1、安装并启用Kutools插件后，在Excel顶部菜单栏找到“Kutools”选项卡。
2、点击“工作表”组中的“拆分工作表”功能，弹出配置窗口。
3、选择待拆分的数据范围，指定依据拆分的基准列（如“项目编号”）。
4、设定拆分模式为“按列值拆分为不同工作表”，勾选“为每个新表添加标题行”。
5、点击“确定”后，插件将自动遍历该列的所有唯一值，并为每个值生成独立工作表。
