不管是好是坏，2024终究已过，全新的2025已到来。这段各企业、单位人力资源部、财务部、研发部等部门的同仁们估计是要忙晕了，各种年终大盘点、年终大总结等数据汇总工作要累死人。

今天本站给大家演示一段VBA代码：本代码是一个用于生成年度原材料耗料报表的功能，主要功能是跨工作簿、跨工作表中提取数据，并进行汇总和计算，最终将结果写入指定的工作表中。以下是代码的详细工作思路。希望大家能用上，缓解一下紧张的工作并提升工作效率。从下面的视频演示可以看到，整个代码都运行时间仅为2分钟左右。

请移步到文章末尾处获取完整代码！

工作思路：

初始化和设置

关闭屏幕更新和警告，提高代码运行效率。

打开一个名为“车间发货明细表2025.xlsm”的工作簿，避免在循环中重复打开和关闭文件。

清空汇总工作表中L到N列的数据。

月份循环

遍历“车间发货明细表2025.xlsm”中的每个工作表，每个工作表代表一个月。

使用字典法汇总当月所有发货型号、发货数量和发货次数，并将汇总结果写入汇总工作表的C到E列。

ADO法提取配方数据

对于每个汇总出来的型号，通过ADO数据库连接方式，提取对应的配方原料和质量百分比。将提取的数据写入汇总工作表的L到N列。删除空白的原料行和百分比为0的行，然后计算出每个原料的消耗量，并写入N列。

字典法汇总原材料型号和数量

使用字典法汇总每个原料型号的消耗数量，将汇总结果写入“数据库”工作表中对应的月份列。

清理和关闭

关闭“车间发货明细表2025.xlsm”工作簿。

清空汇总工作表中C到E列的数据。

恢复屏幕更新和警告。

弹出消息框显示操作完成和用时。

完整代码如下：