怎么将多个具有相同模板的excel表格汇总成一个？

具体操作方法：

1. 首先将收到的表放在同一个文件夹下；

2. 新建一个excel表格，改名为总表，打开后右键左下角的sheet1，选择“查看代码”。

3. 在弹出的窗口中输入宏代码，点击绝色按钮运行；

具体代码如下：

Sub 把当前文件下表格合并生成一个新的工作簿()Application.ScreenUpdating = FalseDim MyDir As StringMyDir = ThisWorkbook.Path & '\'ChDrive Left(MyDir, 1) ChDir MyDirMatch = Dir$('')DoIf Not LCase(Match) = LCase(ThisWorkbook.Name) ThenWorkbooks.Open Match, 0 ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)Windows(Match).ActivateActiveWindow.CloseEnd IfMatch = Dir$Loop Until Len(Match) = 0Application.ScreenUpdating = TrueEnd Sub

4. 之后我们会发现13个表格全部生成在一个工作簿下了，如下图：

5. 如果要将这13个表的数据放在一个Sheet里去编辑的话这得进行一步，首先在左下角插入一个新的sheet；

6. 同样右键点开，选择“查看宏代码”

7. 在弹出的窗口中输入宏代码，点击绝色按钮运行；

具体代码如下：

Sub 将所有表格的内容合并到一个表当中() On Error Resume Next Rows('2:' & Rows.Count).ClearContents Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets With wks If .Name <> ActiveSheet.Name Then Intersect(.Cells(Rows.Count, 1).End(xlUp).CurrentRegion, .Rows('2:' & Rows.Count)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) End If End With Next wks Columns.AutoFitEnd Sub

8. 之后我们会发现13个表格的内容全部集成在一相sheet里了，如下图：

9. 这样就方便快捷多了，有疑问的地方请随时询问我！