如何将excel表中多个sheet工作薄内容进行汇总

问题场景

最近收集了一份securityspace的资料，但是里面分好类别有70多个sheet，我们想把它汇总在1个sheet里，应该怎么做呢？

解决方法

使用宏代码，1秒解决！

• 针对xlsx文件，可以支持最大列数是1048576，下面的range可以填A1048576

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

• 针对xls文件，可以支持最大列数是65536，下面的range可以填A65536

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.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

图文教程

点+号新建一个sheet

我们这里新建的是Sheet72，右键查看代码

然后将上面的代码粘贴进来

点击 开发者工具>宏

点击执行

然后见证奇迹的时刻

我们发现这里，合并完成了，一共有99833列

但是，这里有一个细节，就是我们发现每个sheet的标头还在，你可以在合并之前删除好

当然，我们也可以快速批量删除，ctrl+F搜索表头中的关键词，例如我这里是Test Title

我们这里查到了53个单元格，如何批量将他们都删除呢？我们按shift选第1个和最后1个

这里已经全部勾选上了

然后在界面左侧，右键删除

选择删除整行

然后在查找关键词发现已经找不到了

这里就已经批量删除好了，并且做好了表的汇总！

常见问题

• 没有开发工具的选项？

在保存的时候，点击下面的选项

在自定义功能区中开启开发工具