1个Excel拆分为100个，我用了2小时，同事2分钟就搞定

一、拆分为多个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

然后点击【开发工具】点击【visual basic】随后在跳出的界面中点击【插入】选择【模块】然后直接粘贴代码，点击上方的小三角直接运行代码，等待一段时间，拆分完毕后会跳出一个【工作薄拆分完毕】的提示，直接点击确定即可，拆分的Excel文件的保存路径与这个打开的Excel文件路径是一致的