excel学习库-将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

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

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

excel学习库