如何将多个表格进行Excel合并

当需要将多个Excel文件合并在一起时，一个一个合并的方法太麻烦了。下面介绍一个快速方法：

步骤一：新建一个文件夹

首先，在桌面或任意其他盘符内新建一个文件夹，将要合并的Excel文件放入该文件夹中。

步骤二：新建一个Excel文件

在刚才创建的文件夹中，新建一个Excel文档。

步骤三：查看代码

打开新建的Excel文件，在左下角的Sheet1表上点击鼠标右键，选择"查看代码"。

步骤四：复制代码

进入代码视图后，将以下代码拷贝到代码框中：

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
MyPath %
MyName  Dir(MyPath amp; quot;quot; amp; quot;*.xlsquot;)
AWbName %
Num  0
Do While MyName lt;gt; quot;quot;
If MyName lt;gt; AWbName Then
Set Wb %
Num  Num   1
With Workbooks(1%
For G  1 To%
Next
WbN  WbN amp; Chr(13) amp;%
End With
End If
MyName  Dir
Loop
Range(quot;B1quot;%
MsgBox quot;共合并了quot; amp; Num amp; quot;个工作薄下的全部工作表。如下：quot; amp; Chr(13) amp; WbN, vbInformation, quot;提示quot;
End Sub

步骤五：运行代码

点击运行图标（红色圈中标注），运行结束后，就可以在Sheet1表中看到合并后的内容了。

步骤六：统计和筛选

现在，你可以在同一张表中进行统计、筛选等日常处理操作了。

如果你经常需要使用这个方法，可以将步骤中的代码复制并记录下来，以便日后使用。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。