作者：音子，微信公众号：自在不思量，转载请注明出处。

我最开始接触VBA是17年，从录制宏开始研究了一下如何用一个按钮代替多个连续的操作步骤。最后，代码写的虽然不怎么完美，但也成功应用了几个月，让我节省了不少时间。
但这篇不是讲怎么写VBA代码。
实际上，VBA早已经从我的学习名单中剔除了。可这并不妨碍我使用它~
所以，这篇先来说说如何使用VBA代码来合并表格。
先看一下完整代码吧。需要注意的是，下方这段代码的用途是合并当前文件夹内所有工作簿的全部工作表：

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0

Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(