EXCEL怎么将表格快速拆分

Excel中要快速拆分表格，首先点击插入选项卡的数据透视表，确定好位置并确定后即可在数据透视表里按照顺序勾选字段。下面是具体的快速拆分Excel表格的过程内容详情！

EXCEL怎么将表格快速拆分：

1、选择要拆分表格的所有区域，点击【插入】选项卡，然后点击【数据透视表】，在弹出界面中选择【新工作表】，然后点击【确定】，生成数据透视表。

2、在右侧的数据透视表字段中按照顺序勾选字段。注意：如果我们要按部门拆分表格，一定要第一个勾选部门。

3、点击界面右上角【设计】，将【分类汇总】设置为不显示，【总计】设置为对行和列禁用，【报表布局】设置为以表格的形式显示与重复所有标签，得到一个与原先表格一模一样的表格。

4、拆分透视表：假如我们想按部门来拆分表格，在右侧的数据透视表字段中将【部门】这个字段放在筛选区域，随后点击【分析】，在左上角找到【选项】，然后点击【显示报表筛选页】然后点击确定，这样就会根据部门批量的新建sheet。

5、可以看到，部门A和部门b被分到两个以A、b命名的sheet中，如果想要去掉“求和项”三个字，可以按住shift键批量选中需要设置的表格，点击左上角复制整个表格，然后把它粘贴为数值，删除前2行数据，然后Ctrl+H调出替换，将求和项替换为空值，然后点击全部替换，将表头中的“求和项：”删除掉，至此拆分完毕。

6、按照sheet拆分成多个EXCEL文件

7、利用vba代码，复制下面这一段代码：

Sub 拆分工作薄()

Dim xpath As String

xpath = ActiveWorkbook.Path

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=xpath & "" & sht.Name & ".xlsx"

ActiveWorkbook.Close

Next

MsgBox "工作薄拆分完毕！"

End Sub

8、点击【开发工具】，点击【visual basic】。

9、在跳出的界面中点击【插入】，选择【模块】，

10、直接粘贴代码，点击上方的小三角直接运行代码，等待一段时间，拆分完毕后会跳出一个【工作薄拆分完毕】的提示，直接点击确定即可，拆分的Excel文件的保存路径与这个打开的Excel文件路径是一致的。