当前位置：网站首页 > 技术文章 > 正文

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

zhezhongyun 2025-03-26 19:07 76 浏览

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

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

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

我是Excel从零到一，关注我，持续分享更多Excel技巧

（此处已添加圈子卡片，请到今日头条客户端查看）

标签

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

一、拆分为多个sheet

二、拆分为多个Excel文件

相关推荐

前端Flex布局可视化布局工具介绍，vue和html5快速设计利器

HTML 简介（html简介及优缺点）

现在页面实时聊天都使用Websocket技术实现吗?

关于HTML5被简称做H5，你怎么看?（html5缩写）

在SpringBoot+Vue3项目中通过Nginx代理WebSocket实现跨域通信

利用webSocket实现消息的实时推送

谈谈websocket跨域

前端开发规范(一、HTML篇)

html5 工业web组态-开发自定义的组件 (炫酷按钮)

Python每日一库之Beautiful Soup（python mtime）