前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Excel多工作薄合并

Excel多工作薄合并

作者头像
数据小磨坊
发布2018-04-10 11:35:40
1.3K0
发布2018-04-10 11:35:40
举报
文章被收录于专栏:数据小魔方数据小魔方
今天要给大家介绍一下Excel多工作表合并的技巧!

由于Excel工作薄文件可以包含多个工作表,所以合并起来要比Word麻烦!

目前还无法单纯通过Excel界面的菜单工具做到,不过经过小魔方的反复研究,目前找到了三种合并的方法!

插件工具(OIIO)

VBA代码(别害怕,复制黏贴就行,不用自己写)

数据透视表

由于数据透视表操作步骤相对比较繁琐,以后出数据透视表的教程时会专门来讲。

今天就给大家讲解前两种方法:

第三方插件(OIIO):

♢打开要存放的目标工作薄,点击OIIO效率专家——文件合并——合并成单一工作薄

♢在弹出的菜单中单击右侧红色加号,添加要合并的目标工作薄,添加之后,调整好顺序,然后点击开始就OK了。

VBA宏代码:

这个宏代码是论坛上的Excel高手提供的,利用宏代码的好处就是不用加载插件,一劳永逸。

♢新建一个工作薄文件(或者在要合并的第一个工作薄内)新建一个工作表

♢先复制如下代码:

Sub 工作薄间工作表合并()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

♢然后点击开发工具——visual basic(还没有调用开发工具的请参考12月21日的推送教程)

♢在左侧列表中找到新建的工作表名称并双击

♢在代码框中黏贴刚才复制的代码

♢回到新建工作表中,选择开发工具——宏,在弹出菜单中选择刚才建立的宏文件,点击执行

♢Excel会出现弹出菜单:合并工作薄

♢依次按顺序选择要合并的目标工作薄文件

然后所有目标工作薄中的工作表都会按顺序添加到新工作薄中。

如果想要保存并且以后多次使用此宏代码的话,可以在刚才新建的工作表中插入一个矩形方框,右击选择指定宏,选择刚才的宏文件并确定,再想要使用此功能直接点击指定宏的矩形框就行了,不用再那么麻烦的去开发工具中调用宏代码。

当然含有宏代码的工作薄文件需要保存成特殊的格式(.xlsm)

选择文件——另存为——保存类型——excel启用宏的工作薄(xlsm)。

以后再想用的时候,直接打开这个含有宏的工作薄然后单击指定宏按钮就OK了!

本文参与 腾讯云自媒体分享计划,分享自微信公众号。
原始发表:2016-01-10,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 数据小魔方 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档