需求：有一个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月）汇总到一起，结果如下，但是有重复的表头，需要通过筛选的方式将多余的表头删除掉即可
