时不时有同学问,一个工作簿中每天一份报表,一个月下来30份报表需要汇总成一张表,复制粘贴来的比较慢,还有的是有很多个格式一样的表位于不同的工作簿中,需要合并到一个工作表里,等等……
同一个工作簿中有很多格式相同的表想合并在一起,可以参考我以前写的一篇文章:
《通过查询快速合并多个报表》
当然,我们也可以通过下载一些Excel插件来实现报表的合并,但今天我们分享的主要是通过VBA代码来合并报表。大家可以收藏本文,需要的时候直接使用,非常方便。
1工作簿内多个sheet合并到一个sheet
上边的动图中有1、2、3、4,4个sheet,分别是不同部门的人员信息,需要合并到汇总sheet里。
具体步骤:
右键点击汇总sheet表名,查看代码,把下面代码复制进去,点击运行,很快就可以看到合并后的结果了。
代码如下:
Sub 合并当前工作簿下的所有工作表()