上一篇文章介绍了批量将工作簿拆分为单独的文件，那么有拆自然就要有合并。今天就来说说合并的事。
同样，先看效果
一键完成，有多少张表也都一起搞定。
动画中所使用的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 实例（2） - 批量将工作表拆分为单独文件
永恒君把上面实例的文件也分享出来，需要的直接使用也可以。
后台回复“合并”即可。
Excel VBA功能很强大，但是要熟练的运用起来还是有一定的难度，好在永恒君帮大家搜集了几套关于VBA的视频教程，非常的实用。
需要的话，后台回复“VBA”获取吧~~
欢迎交流！
微信公众号：永恒君的百宝箱
个人博客：www.yhjbox.com
转载请注明：永恒君的百宝箱 » Excel vba 实例（3） – 多个工作簿批量合并
