Excel快速拆分一个工作表数据到多个独立工作表教程
一份总数据表，包含大量业务记录，例如人员按部门、订单按品类，需要把每一个类别数据拆分，分别生成独立工作表。几百上千行数据，手动筛选复制粘贴工作量巨大，还容易复制错行。本篇提供两套方案：适合小数据量的筛选复制手动方案；大数据量使用VBA宏自动拆分工作表。WPS表格完全兼容这套操作逻辑。
方法一：筛选复制方案（少量数据，不用宏，新手）
示例场景：总表A列为部门名称，需要每一个部门单独生成一张工作表。
1、复制原始总表，做一份备份，避免操作失误破坏原始业务数据。
2、选中总表数据区域，点击顶部菜单栏「数据」‑「筛选」，表头每一列出现筛选下拉小箭头。
3、点击部门列筛选箭头，勾选其中一个部门，表格只展示这个部门全部行；
4、Ctrl+A选中筛选出来全部可见行，Ctrl+C复制；新建空白工作表，粘贴进去，工作表命名为该部门名字。
5、反复切换筛选不同部门，复制新建工作表。
缺点：类别数量很多（几十个上百个分类），重复操作繁琐，适合分类数量不多场景。
方法二：VBA自动按字段拆分工作表（大量分类，自动化）
把全部数据放在叫Sheet1工作表，拆分依据的关键字段在A列。Alt+F11打开VBA编辑器，插入模块，粘贴下面代码。
Sub SplitSheetByColumn()
Dim i As Long, lastRow As Long
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
dict(Sheet1.Cells(i, 1).Value) = ""
Next i
Dim key
For Each key In dict.Keys
On Error Resume Next
Sheets(key).Delete
On Error GoTo 0
Sheets.Add(After:=Sheets(Sheets.Count)).Name = key
Sheet1.AutoFilterMode = False
Sheet1.Range("A1").AutoFilter Field:=1, Criteria1:=key
Sheet1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Sheets(key).Range("A1")
Next key
Sheet1.AutoFilterMode = False
End Sub
运行这个宏脚本。脚本会读取A列全部不同分类，自动新建对应名字工作表，筛选复制对应分类全部数据到新工作表。
⚠️重要提醒：运行VBA之前务必备份原始Excel文件。WPS需要安装VBA组件，部分精简版Office禁用宏。
操作之后检查要点
全部拆分完成，点开每一张生成的工作表，抽样核对几行数据，确认分类筛选复制没有遗漏记录。原始总表不要删除，保留作为数据源备份。
常见报错
1、运行宏报错“无法创建对象”：Office安全设置阻止宏，或者缺少VBA支持库；
2、新建工作表名字报错：分类单元格内容包含工作表不允许特殊字符 / \ ? * [ ]，工作表名字不能包含这些符号，需要预处理原始数据替换掉特殊符号。
3、拆分之后表头丢失：代码会把总表第一行表头复制到每一张分表，符合绝大多数业务报表需求。
小结：分类少用筛选复制手动处理；分类数量多，几十上百类，直接VBA脚本自动拆分，节省大量重复手工操作。
