刚碰到过类似的需求，给你分享两个实用的方法，不管你喜欢用代码还是可视化操作都能搞定！

方法一：使用VBA代码快速拆分 #

这个方法适合需要批量重复操作的场景，一次写好代码就能反复用。

操作步骤： #

1. 打开你的Excel主表，按下 Alt + F11 打开VBA编辑器。
2. 右键点击左侧的工作簿名称，选择插入 → 模块。
3. 将下面的代码粘贴到模块窗口中：

Sub SplitTableByColumn()
    Dim wsMain As Worksheet
    Dim wsNew As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim splitColIndex As Integer ' 要拆分的列的索引（比如A列是1，B列是2）
    Dim cellValue As String
    Dim i As Long
    
    ' 设置主表名称和拆分列索引，根据你的实际情况修改！
    Set wsMain = ThisWorkbook.Worksheets("主表") ' 替换成你的主表名称
    splitColIndex = 3 ' 假设按第3列（C列）的物品类型拆分，改成你的目标列
    
    ' 获取主表的最后一行和最后一列
    lastRow = wsMain.Cells(wsMain.Rows.Count, splitColIndex).End(xlUp).Row
    lastCol = wsMain.Cells(1, wsMain.Columns.Count).End(xlToLeft).Column
    
    ' 遍历主表数据（从第2行开始，跳过表头）
    For i = 2 To lastRow
        cellValue = wsMain.Cells(i, splitColIndex).Value
        
        ' 如果不存在对应名称的工作表，就新建一个
        On Error Resume Next
        Set wsNew = ThisWorkbook.Worksheets(cellValue)
        On Error GoTo 0
        
        If wsNew Is Nothing Then
            ' 新建工作表并命名
            Set wsNew = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
            wsNew.Name = cellValue
            ' 复制主表的表头到新工作表
            wsMain.Range(wsMain.Cells(1, 1), wsMain.Cells(1, lastCol)).Copy wsNew.Cells(1, 1)
        End If
        
        ' 复制当前行到对应的子工作表
        wsMain.Range(wsMain.Cells(i, 1), wsMain.Cells(i, lastCol)).Copy wsNew.Cells(wsNew.Rows.Count, 1).End(xlUp).Offset(1, 0)
        
        Set wsNew = Nothing ' 重置变量
    Next i
    
    MsgBox "拆分完成！"
End Sub

4. 修改代码里的wsMain名称和splitColIndex（比如你的物品类型在B列，就改成2）。
5. 按下F5运行代码，或者在编辑器工具栏点击运行按钮，等待拆分完成。

注意事项： #

• 确保主表有表头行（第一行是标题），代码会自动复制表头到每个子表。
• 如果已经存在同名的工作表，代码会直接往里面追加数据，不会覆盖。
• 运行前最好备份你的Excel文件，避免意外情况。

方法二：使用Power Query可视化拆分（无需代码） #

如果你不想碰代码，Power Query是更友好的选择，操作全程可视化，还能随时更新数据。

操作步骤： #

1. 选中主表的任意单元格，点击数据选项卡 → 从表格/区域（如果提示创建表，勾选“我的表格有标题”，然后确定）。
2. 在Power Query编辑器中，选中要拆分的列（比如“物品类型”列），点击转换选项卡 → 分组依据。
3. 在分组依据窗口中：
   • 分组列：选择你要拆分的列（比如“物品类型”）
   • 新列名：可以随便取，比如“数据”
   • 操作：选择所有行
   • 点击确定，此时你会看到每个分组对应一行，包含该组的所有数据。
4. 点击“数据”列右侧的展开按钮（两个箭头），选择加载到 → 仅创建连接，然后点击确定。
5. 回到Excel界面，点击数据选项卡 → 连接 → 找到刚才创建的连接，右键点击 → 加载到。
6. 在加载窗口中：
   • 选择表
   • 选择新工作表
   • 勾选“每个对象加载到不同的工作表”，然后点击确定。

这样Power Query就会自动为每个分组创建对应的子工作表，以后主表数据更新了，只要右键点击子表 → 刷新，就能同步更新数据！

注意事项： #

• 主表最好是Excel表格格式（带表头），这样Power Query识别更准确。
• 如果分组名称有特殊字符（比如斜杠、问号），Excel可能无法创建同名工作表，需要先清理这些特殊字符。

内容的提问来源于stack exchange，提问作者Mohannad Al Amad