多个excel文件合并成多个sheet (如何把excel多个sheet合并到一个)

需求： 有一个Excel表格，里面有多个表头一样的sheet页，需要将Excel表格中的所有sheet页数据汇总到一起。

难点： 将Excel表中的所有sheet页（表头格式相同）的数据汇总到一起

步骤：

1、打开需要处理的Excel表格文件，里面有6个sheet页，分别为1月、2月、3月、4月、5月、6月。

2、在同一个Excel中新建一个空白新的sheet页。

​

3、打开菜单“开发工具-》VB编辑器”。

​

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

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A655360").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

​

5、运行后，在新建的sheet页会把表格中其他所有sheet页的数据（1月、2月、3月、4月、5月、6月）汇总到一起，结果如下，但是有重复的表头，需要通过筛选的方式将多余的表头删除掉即可

​

​