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

问题场景

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

如何将excel表中多个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

如何将excel表中多个sheet工作薄内容进行汇总
我们这里新建的是Sheet72,右键查看代码
如何将excel表中多个sheet工作薄内容进行汇总

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

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

点击 开发者工具>宏

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

点击执行

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

然后见证奇迹的时刻

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

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

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

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

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

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

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

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

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

这里已经全部勾选上了

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

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

选择删除整行

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

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

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

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

常见问题

  • 没有开发工具的选项?

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

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

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

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

「渗透云记」公众号里主要记录我每天的所思所想,我会坚持更新质量不错的文章,感兴趣的小伙伴可以扫描下方二维码,谢谢支持! 安全小天地 - 公众号 - 渗透云记
© 版权声明
THE END
喜欢就支持一下吧
点赞11 分享
评论 抢沙发

请登录后发表评论

    请登录后查看评论内容