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

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

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

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文件

相关推荐

b端详情页:各种信息聚集地，设计师要如何规划这一亩三分地呢

接口测试遇到500报错?别慌，你的头部可能有点问题

漏洞系列一一看我一招征服漏洞 SSRF

Web前端需要学什么?Web前端开发需要学习哪些?

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

「资讯」为强迫用户使用Edge浏览器，微软又出新招数

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

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

HBuilderX，uni-app创建HTML5项目，同时支持浏览器和移动端

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