如何将多个Excel工作薄中工作表批量合并到一个工作薄

哈雷

2019-05-28

来源：巨盒创意

日常工作中，我们可能有这样的需求，我们的数据分别存放在N个工作簿里，我们需要把这些零散的数据都移动到一个工作簿里面，而且每张工作表分别存在！

我们常用的方法是，一个个打开工作簿，通过移动工作表的方式一个个移动过去，但是如果我们的数据量很大时，这样做是很麻烦的事情，下面给大家介绍一个十分简单的方法，几秒钟实现我们的目的！

1、新建“工作表合并.xlsx”文件>> 选项>> 信任中心>> 点击“信任中心设置”按钮>> 宏设置>> 选中“启用所有宏”点击“确定”按钮。 // 要执行VB代码必须先启用宏设置。

2、右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境 >>“代码窗口”复制粘贴以下代码，按下F5快捷键执行这段代码或者在菜单中单击“运行子过程/用户窗体”命令。

Sub 合并工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="2015")

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

3、选择要合并的工作表文件，点击“打开”，程序运行的工程中不要进行任何操作，等待宏运行完成。

4、运行完成后，工作薄中会出现所有要合并的工作薄中的工作表，如下图所示：

关注巨盒创意微信公众号，免费学习更多精品教程，高效、便捷办公。

阅读554

写评论...