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

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

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

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

一、拆分为多个sheet

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

1.创建透视表

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

excel怎么拆分单元格(excel拆分并复制内容)(1)

2.拆分透视表

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

excel怎么拆分单元格(excel拆分并复制内容)(2)

3.修改拆分表

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

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

excel怎么拆分单元格(excel拆分并复制内容)(3)

二、拆分为多个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文件路径是一致的

excel怎么拆分单元格(excel拆分并复制内容)(4)

以上就是今天分享的全部内容,怎么样?你学会了吗?