在Excel中，可以使用VBA代码来拆分表格。以下是一个简单的步骤和示例代码，帮助你按部门拆分表格：
步骤
读取原始表格：
首先，你需要读取包含数据的工作表内容。
按部门分组：
根据某一列（例如“部门名称”）将数据分成不同的组。
生成新表格：
为每个组创建一个新的工作表，并保存为单独的Excel文件。
保存文件：
将生成的新表另存为单独的Excel文件。
示例代码
```vba
Sub 拆分表格按部门（）
Dim ws As Worksheet
Dim rng As Range
Dim dic As Object
Dim key As Variant
Dim newWb As Workbook
Dim destWs As Worksheet
Dim lastRow As Long
Dim colNum As Integer
Dim savePath As String
' 获取当前工作表
Set ws = ThisWorkbook.Sheets（"数据总览"）
' 确保你的表名是“数据总览”，否则改成实际的名字
' 定义保存路径
savePath = ThisWorkbook.Path & "\"
' 找到数据区域
lastRow = ws.Cells（ws.Rows.Count, 1）.End（xlUp）.Row
' 自动找到最后一列
colNum = ws.Cells（1, ws.Columns.Count）.End（xlToLeft）.Column
' 设置数据范围
Set rng = ws.Range（ws.Cells（1, 1）, ws.Cells（lastRow, colNum））
' 创建字典对象
Set dic = CreateObject（"Scripting.Dictionary"）
' 遍历数据并分组
Dim i As Long
For i = 1 To rng.Rows.Count
' 获取部门名称
key = rng.Cells（i, 1）.Value
' 如果字典中没有该部门，则添加
If Not dic.Exists（key） Then
Set destWs = ThisWorkbook.Sheets.Add（After:=ThisWorkbook.Sheets（ThisWorkbook.Sheets.Count））
destWs.Name = key
dic.Add key, destWs
End If
' 将当前行数据复制到对应部门的工作表中
dic（key）.Cells（i - 1, 1）.Resize（1, colNum）.Value = rng.Cells（i, 1）.Resize（1, colNum）.Value
Next i
' 保存每个部门的工作表
Dim fileName As String
For Each key In dic.Keys
fileName = savePath & key & ".xlsx"
dic（key）.SaveAs fileName
Next key
MsgBox "表格拆分完成!", vbInformation, "完成"
End Sub
```
注意事项
启用宏：
确保你的Excel启用了宏，否则代码无法运行。你可以在“文件” > “选项” > “自定义功能区”中勾选“开发工具”。
数据格式：
在拆分数据时，确保数据的格式和公式正确复制，以免丢失。
文件保存：
代码会生成多个Excel文件，分别保存每个部门的数据。
通过以上步骤和代码，你可以轻松地将一个大型表格按部门拆分成多个小表格。