如何将一个EXCEL工作薄里100张sheet数据十秒钟合并成一个EXCEL表

如何将一个EXCEL工作薄里100张sheet数据十秒钟合并成
一个EXCEL表
今天小编给大家讲讲，将一个工作簿里的多个sheet数据合并到一个sheet！
1、在包含多个sheet的工作簿中（如多个工作簿合并后含n个sheet的工作簿），新建一个sheet！
2、在新建的sheet标签上点击右键，选择“查看代码”
3、在打开的VBA编辑窗口中粘贴以下代码：
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> Then
X = Range('A65536').End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range('B1').Select
Application.ScreenUpdating = True
MsgBox '当前工作簿下的全部工作表已经合并完毕！', vbInformation, '提示'
End Sub
运行，等待……合并好了后会弹出提示。

合并好后出现这样的数据，因为小编只建了三个表格，每个表格有一行数据，一行表头，这样就会出现表头都会重复，接下来选择整个表格，删除重复项，或者用筛选，将重复的表头删掉，就OK了。

这种合并在平时的数据统计中，尤其涉及到各部门，各产线数据的分类汇总，表格需要拆分为独立的，或者合并总数，用的频率特别多，小编明天帮大家分享，将不同的100个EXCEL表格如何合并为一个总的EXCEL报表，这样大家在平时的工作中会应用起来更方便。