本文总共1281个字,阅读需5分钟,全文加载时间:3.321s,本站综合其他专栏收录该内容! 字体大小:

文章导读:天下大势 合久则分 分久则和 前面文章说了几个表格合并到一个 今天说说散伙 一个表格拆分为几个 效果如下 ▼ 文末有下载链接 在需拆分营销快报(举例)中,新建拆分工作簿的宏命令 ▎1 “宏”在哪里? ■ 单击工……各位看官请向下阅读:

天下大势

合久则分 分久则和

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

今天说说散伙

一个表格拆分为几个

效果如下

文末有下载链接

在需拆分营销快报(举例)中,新建拆分工作簿的宏命令

▎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效率宝典”或者“财务管理高手之路”均可购买。

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

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

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注