一键散伙，将一个Excel文件拆分为几个

天下大势

合久则分 分久则和

前面文章说了几个表格合并到一个

今天说说散伙

一个表格拆分为几个

效果如下

▼

文末有下载链接

在需拆分营销快报（举例）中，新建拆分工作簿的宏命令

▎1 “宏”在哪里？

■ 单击工具栏上的“开发工具”标签

■ 点击“Visual Basic”

如下图所示。

▎2 给“宏”起名字

表格中出现“宏”对话框

■ “宏名”下方输入框内输入宏名字:拆分

■ 点击“创建”

如下图所示。

▎3 在VBA编辑窗口编辑代码

Excel将调出VBA窗口现“宏”对话框

■ 在编辑窗口双击“ThisWorkbook”

■ 右侧弹出空白代码窗口

如下图所示。

▎4 在编辑窗口输入如下代码

Sub 拆分()

Dim i

Dim cf As Worksheet

Application.DisplayAlerts = False

For Each cf In Sheets

cf.Copy

i = ThisWorkbook.Path & "\" & cf.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

End Sub

如下图所示。

VBA代码编辑完成后关闭VBA窗口，至此，拆分工作簿的宏创建完毕。

▎5 存档

存档的时候

另存为，保存类型选择“Excel启用宏的工作簿”

如下图所示。

▎6 查看刚刚创建的宏“拆分”

■ 单击工具栏上的“开发工具”标签

■ 点击“宏”,可以从“宏”对话框中看到“拆分”宏

如下图所示。

▎7 为新建的“拆分”宏指定一个按钮

■ 新增一张空白表“Sheet1”

■ 单击工具栏上的“开发工具”标签

■ 点击“插入”

■ 从下拉菜单中选择“按钮（窗体控件）”

如下图所示。

■ 在工作表中点击需创建按钮的位置，按住鼠标并拖动鼠标改变按钮大小

■ 松开鼠标时，会弹出“指定宏”对话框

■ 选择刚刚新建的“拆分”宏，点击“确定”

如下图所示。

■ “按钮1”就是新建的“拆分”宏指定的按钮

如下图所示。

▎8 修改按钮的名字

■ 在按钮上单击鼠标右键

■ 从弹出的菜单中选择“编辑文字”

如下图所示。

■ 将按钮名字“按钮1”改为“拆分”

如下图所示。

▎9 使用“拆分”按钮拆分工作簿

■ 点击“拆分”按钮

如下图所示。

▎10 “营销快报”拆分结果

■ 1月、2月、3月营销快报已经拆分至三张工作簿中

如下图所示。

▎11 获取文件

需要“一键拆分工作簿”Excel文件的朋友，可以：

■ 给我留言，并留下您的电子邮箱地址。

■ 或者使用网盘，链接如下

一键拆分工作簿 Excel文件下载网盘链接:

链接：https://pan.baidu.com/s/1WkWg1za45YRjbWOvVThLbg

提取码：4sbz

复制这段内容后打开百度网盘手机App，操作更方便哦

The End！

你学废了吗？

欢迎评论、转发、收藏、点赞！

温馨提示：运行“宏”时，应开启“宏”。

本公众号LovExcel书籍

《Excel效率宝典 财务管理高手之路》

正在火热销售中

PS：阅读本书的过程中，若有任何疑问，可以发送邮件到lovexcel@qq.com或者给我留言。

插画来自：LOFTER

京东、天猫、当当、亚马逊，搜索“Excel效率宝典”或者“财务管理高手之路”均可购买。

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• 新入手的iPhone 13，记得提前打开这5个功能，让手机更好用
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• RANKIF？Excel中有这个函数吗？
• 手机与和U盘的连接及文件操作(手机直接连接u盘为什么不能互传文件)
• 人像摆拍姿势和抓拍技巧，学会“安排”照片，摄影新手也能拍美照
• 调整干部开启，如何找准自己的位置？以下几点值得借鉴
• Excel表格办公—-公式与结果共同显示的方法
• 人人都该掌握的电脑小技巧，建议收藏