拆分Excel，我复制粘贴用了2小时，同事点点鼠标2分钟搞定

Hello，大家好，有粉丝问到关于Excel拆分的问题，今天跟大家分享下解决方法，拆分Excel一般分为2种情况

1.将表格根据首行字段中的某一个字段拆分为多个sheet

2.根据sheet名称，将1个Excel文件拆分为多个Excel文件

它们的操作与都非常的简单，点点鼠标即可轻松搞定，下面就让我们来学下吧

一、拆分为多个sheet

将1个表格拆分为多个sheet，最简单的方法就是利用数据透视表，假设在这里我们想要按照省份来拆分表格

1.创建透视表

首先我们点击表格中的任何一个单元格，然后在新工作表中插入一个数据透视表，随后在右侧的字段列表中按照顺序勾选字段，字段勾选完毕后点击【设计】将【分类汇总】设置为不显示，【总计】设置为对行和列禁用，【报表布局】设置为以表格的形式显示与重复所有标签，这样的话就会得到一个与数据源一模一样的表格

2.拆分透视表

在这里我们想要根据省份这个字段来拆分数据，所以在右侧的字段列表中将【省份】这个字段放在筛选区域，随后点击【数据透视表设计】在最左侧找到【选项】然后点击【显示报表筛选页】然后点击确定，这样的话就会根据省份批量的新建sheet

3.修改拆分表

拆分之后的表格它是数据透视表，表头中会带有【求和项：】你如果不影响的话，这一步就不用做了，如果觉得影响比较大，我们可以将表格中的【求和项：】替换掉。

首先选择第一个sheet名称，然后按住shift键再选择最后一个sheet名称，这样的话就会批量选中需要设置的表格，我们在左上角复制整个表格，然后把它粘贴为数值，删除前2行数据，然后Ctrl+H调出替换，替换为设置为求和项：然后点击全部替换这样的话就会将表头中的求和项：删除掉，至此就拆分完毕了

二、拆分为多个Excel文件

想要把1个Excel拆分为多个Excel文件，最简单的方法就是利用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