经验百科
你拆分EXCEL还在用复制粘贴吗，有种更简便的方法，不用复制粘贴，就能按照你的需要将表格按某一列内容拆分成多个EXCEL文件。
拆分Excel分为两个阶段：
第一阶段，将表格拆分为多个sheet
第二阶段，根据sheet名称，将1个Excel文件拆分为多个Excel文件
具体怎么做呢，一起来看看吧
工具/原料
- EXCEL
方法/步骤
第一步，选择要拆分表格的所有区域，点击【插入】选项卡，然后点击【数据透视表】，在弹出界面中选择【新工作表】，然后点击【确定】，生成数据透视表
第二步，在右侧的数据透视表字段中按照顺序勾选字段。注意：如果我们要按部门拆分表格，一定要第一个勾选部门，切记！
第三步，点击界面右上角【设计】，将【分类汇总】设置为不显示，【总计】设置为对行和列禁用，【报表布局】设置为以表格的形式显示与重复所有标签，得到一个与原先表格一模一样的表格
第四步，拆分透视表：假如我们想按部门来拆分表格，在右侧的数据透视表字段中将【部门】这个字段放在筛选区域，随后点击【分析】，在左上角找到【选项】，然后点击【显示报表筛选页】然后点击确定，这样就会根据部门批量的新建sheet。
我们可以看到，部门A和部门b被分到两个以A、b命名的sheet中，如果想要去掉“求和项”三个字，可以按住shift键批量选中需要设置的表格，点击左上角复制整个表格，然后把它粘贴为数值，删除前2行数据，然后Ctrl+H调出替换，将求和项替换为空值，然后点击全部替换，将表头中的“求和项：”删除掉，至此拆分完毕
接下来，按照sheet拆分成多个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文件路径是一致的
END
注意事项
- 如果觉得有用，请收藏，以备查看
未经允许不得转载：经验百科 » EXCEL如何将表格快速拆分
最新评论
好东西