1、第一步，选择要拆分表格的所有区域，点击【插入】选项卡，然后点击【数据透视表】，在弹出界面中选择【新工作表】，然后点击【确定】，生成数据透视表
2、第二步，在右侧的数据透视表字段中按照顺序勾选字段。注意：如果我们要按部门拆分表格，一定要第一个勾选部门，切记！
3、第三步，点击界面右上角【设计】，将【分类汇总】设置为不显示，【总计】设置为对行和列禁用，【报表布局】设置为以表格的形式显示与重复所有标签，得到一个与原先表格一模一样的表格
4、第四步，拆分透视表：假如我们想按部门来拆分表格，在右侧的数据透视表字段中将【部门】这个字段放在筛选区域，随后点击【分析】，在左上角找到【选项】，然后点击【显示报表筛选页】然后点击确定，这样就会根据部门批量的新建sheet。
5、我们可以看到，部门A和部门b被分到两个以A、b命名的sheet中，如果想要去掉“求和项”三个字，可以按住shift键批量选中需要设置的表格，点击左上角复制整个表飙空蒈开格，然后把它粘贴为数值，删除前2行数据，然后Ctrl+H调出替换，将求和项替换为空值，然后点击全部替换，将表头中的“求和项：”删除掉，至此拆分完毕
6、接下来，按照sheet拆分成多个EXCEL文件
7、第五步，利用vba代码，复制下面这一段代码：Sub 拆分工作薄()Dim xpath As Stringxpath = ActiveWorkbook.PathDi罪焐芡拂m sht As WorksheetFor Each sht In ActiveWorkbook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"ActiveWorkbook.CloseNextMsgBox "工作薄拆分完毕！"End Sub
8、第六步，点击【开发工具】，点击【visual basic】。
9、第七步，在跳出的界面中点击【插入】，选择【模块】，
10、第八步，直接粘贴代码，点击上方的小三角直接运行代码，等待一段时间，拆分完毕后会跳出一个【工作薄拆分完毕】的提示，直接点击确定即可，拆分的Excel文件的保存路径与这个打开的Excel文件路径是一致的
