大家好，有粉丝问了关于Excel拆分的问题。今天，我想和你分享解决方法。一般拆分Excel可以分为两种情况。
1.根据第一行字段中的某个字段将表格拆分成多张表格。
2.根据工作表名称，将一个Excel文件拆分成多个Excel文件
它们的操作非常简单，只需轻轻一点鼠标就能轻松完成。下面就来学习一下吧。
首先，分裂成多张纸
将一个表拆分成多个表的最简单方法是使用数据透视表。假设我们想在这里按省份拆分表格。
1.创建数据透视表
首先，单击表格中的任意单元格，然后在新工作表中插入数据透视表，然后按顺序检查右侧字段列表中的字段。检查完字段后，单击Design将小计设置为不显示，将总计设置为禁用行和列，将报表布局设置为以表格形式显示和重复所有标签。这样，就会得到一个与数据源完全相同的表。
2.拆分数据透视表
这里我们要按省份字段拆分数据，所以把省份字段放在右边字段列表的过滤区，然后点击透视表设计找到最左边的选项，再点击显示报表过滤页，然后点击确定，这样就按省份批量创建了一张新表。
3.修改分割表
分解表是透视表，表头会有【Sum:】。如果对你没有影响，就不需要做这一步。如果你觉得影响大，我们可以把表中的【Sum:】替换掉。
首先，选择第一个工作表名称，然后按住shift键，再选择最后一个工作表名称。这样，将要设置的表将被批量选择。我们会把整个表***到左上角，然后粘贴成数值，删除前两行数据，然后Ctrl+H调出替换，设置为sum项。然后，单击全部替换。这样，表头的sum项就会被删除，拆分就完成了。
第二，拆分成多个Excel文件
将一个Excel拆分成多个Excel文件的最简单方法是使用vba代码。首先，我们***下面的代码。
Sub 拆分工作薄()Dim xpath As Stringxpath = ActiveWorkbook.PathDim sht As WorksheetFor Each sht In ActiveWorkbook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=xpath & "" & sht.Name & ".xlsx"ActiveWorkbook.CloseNextMsgBox "工作薄拆分完毕！"End Sub
然后点击开发工具，点击visual basic，然后在弹出的界面中点击插入选择模块，然后直接粘贴代码，点击顶部的小三角形直接运行代码，等待一段时间。拆分后会弹出“工作簿拆分完成”的提示，直接点击确定即可。拆分后的Excel文件的保存路径与打开的Excel文件的路径相同。
这就是我们今天分享的全部内容。怎么样？你学会了吗？
本文来自青灯黄卷伴你久投稿，不代表舒华文档立场，如若转载，请注明出处：https://www.chinashuhua.cn/24/498040.html
微信扫一扫 
