手把手系列：合并多个Excel表至一个工作薄

昨天讲了拆分Excel工作表的问题，今天我们来看看如何合并多个Excel表？

手把手系列教学，提高您的工作效率，节约您宝贵的时间。

Excel合并工作薄

1.例如，我们在同一个文件夹下面，有“一、二、三”这三个Excel表格需要合并到一个Excel工作薄中。

2.单击打开任意一个Excel表格，例如，我们打开Excel“一”，右击“SHeet1”，点击查看代码

3.在弹出的对话框中，输入如下代码

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & '\' & '*.xls')AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ''If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & '\' & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range('B65536').End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range('B65536').End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange('B1').SelectApplication.ScreenUpdating = TrueMsgBox '共合并了' & Num & '个工作薄下的全部工作表。如下：' & Chr(13) & WbN, vbInformation, '提示'End Sub

4.单击“运行”中的“运行子过程/用户窗体”

5.运行完成后，会弹出提示窗口，表明合并成功。