受疫情的影响，共享文档如实又火了一把：多人实时在线填报表格、实时汇总数据，让大家都能实时看到最新的版本，免去了文档的分发、填报、汇总等工作，甚至把有关的沟通需求也通过文档的批注功能来快速实现，给数据填报的工作带来了很大的便利。

然而，共享文档的局限也是非常明显的：

1、文档内容是公开的，无法满足保密填报的需求；

2、填报数据时，一方可能修改他人填报的数据，导致原本准确的数据出错；

3、甚至会出现误删他人填报的数据的情况。

基于以上原因，线下独立填报、分级汇总的数据收集方式仍然有很多人在使用。那么，问题来了：独立填报的数据表怎么快速的汇总到一起呢？

最直接的办法是把各个工作簿里的数据复制、粘贴到一个总表里，如果只有一套表、数个工作簿文件时，这样操作的工作量还可以承受。但当面对数套表，十数个、甚至数十个工作簿文件的时候，恐怕您就该不胜其烦、吃不消了。那么有没有更便捷的方法快速完成呢？——利用Excel的VBA代码编程就可以让您“免”为其难！

假设您面对的是一套表的情况（工作簿文件数量不论），即，各个工作簿文件里仅有这一套表及其填写的数据。

报表示例如下：

您仅需要将附件的启用宏的工作表“提报数据汇总表（一套表）.xlsm”连同需要汇总的工作簿放置到一个文件夹中，打开该宏工作表，使用快捷键ALT + F8选择宏“汇总数据” → 执行：填写需要汇总的工作表中数据的起始行，点击“确定”，汇总结果数秒可得。

宏代码如下：欢迎交流互动！