经验直达：
- 如何将excel表格拆分成若干表格
- 如何将excel总表拆分为多个附表
一、如何将excel表格拆分成若干表格
您好 ， 方法
1、如图所示，表格中有姓名部门和工时，我们想将这个表中的人员按照部门拆分到多张工作表中 。
2、我们通过数据透视表来进行操作，首先要新建一个数据透视表，点击插入，选择数据透视表 。
3、选择后会弹出创建数据透视表的对话框，选择好相应的区域，点击确定 。
4、在数据透视表字段列表中，勾选所有的字段 。
5、将部门用鼠标拖放至报表筛选的字段 。
6、点击选项，然后选择显示报表筛选页 。
7、点击确定后，就会直接按照部门拆分成多个工作表 。
二、如何将excel总表拆分为多个附表
用VBA宏
下面的宏 ， 放到你的原来表格中（注意做好表格备份，防止失误） ， 运行即可 ， 在同一文件夹得到拆分的多个附表 。
【如何将excel总表拆分为多个附表 如何将excel表格拆分成若干表格】Sub splitExcel_by_zzllrr()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim TPath As String, XSheet As Worksheet, sht0 As Worksheet
Set sht0 = Sheets(1)
For i = 1 To 30
'上面30是设置的附表总数，如果不知15w数据，可以根据实际情况 ， 设置大一点 。
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "newSheet_" & i
sht0.Range("A" & ((i - 1) * 50001) & ":A" & (i * 5000)).Copy Sheets("newSheet_" & i).Range("A1")
Next i
TPath = ActiveWorkbook.Path
For Each XSheet In ActiveWorkbook.Sheets
If XSheet.Name Like "newSheet_*" Then
XSheet.Copy
ActiveWorkbook.SaveAs Filename:=TPath & "" & ActiveSheet.Name & ".xls"
ActiveWindow.Close
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub