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

问题场景

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

图片[1]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

解决方法

使用宏代码,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

图片[2]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[3]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[4]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

点击 开发者工具>宏

图片[5]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

点击执行

图片[6]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

然后见证奇迹的时刻

图片[7]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[8]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[9]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[10]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[11]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

这里已经全部勾选上了

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

图片[12]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

选择删除整行

图片[13]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[14]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

常见问题

  • 没有开发工具的选项?

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

图片[15]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog

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

图片[16]-如何将excel表中多个sheet工作薄内容进行汇总-FancyPig's blog
© 版权声明
THE END
喜欢就支持一下吧
点赞37赞赏 分享
评论 共2条

请登录后发表评论