需求：有多个Excel表格，每个表格的sheet页数据格式相同，需要将所有Excel表格中的sheet页数据汇总到一个新的Excel表格。

难点：将多个Excel表中的sheet页（格式相同）的数据汇总另一个工作表中

步骤：

1、将所有需要合并的Excel表格放到同一个目录下面，并新建一个需要汇总结果的空Excel表格

2、打开空白的汇总表，光标移动到A1，找到菜单“开发工具-》VB编辑器”

3、将如下VB代码复制到编辑器中，点击菜单“运行-》运行子过程”

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(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

4、运行后表格数据已汇总，结果如下，但是有重复的表头，需要通过筛选的方式将多余的表头删除掉即可