Excel vba 实例（3） - 多个工作簿批量合并

上一篇文章介绍了批量将工作簿拆分为单独的文件，那么有拆自然就要有合并。今天就来说说合并的事。

同样，先看效果

一键完成，有多少张表也都一起搞定。

动画中所使用的VBA代码如下：

---

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

  Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", 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

---

不少人对VBA代码有抵触心理，其实没有那么复杂，把他看成一个稍微复杂点的函数即可。

当然如果并不打算深入学习VBA，只是临时使用下，那只要会复制黏贴就好了！

至于怎么用VBA代码，可以参考之前的文章：

Excel vba 实例（1） - 批量制作工资表头

Excel vba 实例（2） - 批量将工作表拆分为单独文件

永恒君把上面实例的文件也分享出来，需要的直接使用也可以。

后台回复“合并”即可。

---

Excel VBA功能很强大，但是要熟练的运用起来还是有一定的难度，好在永恒君帮大家搜集了几套关于VBA的视频教程，非常的实用。

需要的话，后台回复“VBA”获取吧~~

欢迎交流！