写在头部的如果你是要查学习強国题库的，请点！

---

今天和大家分享的是VBA常用小代码系列第五篇：一键汇总各分表数据到总表

照例举个栗子，如下图一个工作簿，包含多个工作表现在需要将各个分表的数据汇总到总表中。

碰到这样的问题有些小伙伴会想到使用数据透视表或者合并计算等方式进行操作。

但这两种操作方式都有它的局限性

比如说，它们是统计汇总数据而不是汇总明细记录；另外当标题行或列是多行（多列），甚臸存在合并单元格时它们也就无能无力了，等等

代码一两行，工作不用愁断肠面对这样的情况，VBA小代码解决方案如下：

'VBA编程学习与實践一键多表数据汇总 '取消屏幕更新，加快代码运行速度 '取得用户输入的标题行数如果为负数，退出程序 '如果工作表名称不等于当前表名则进行汇总动作…… '定义rng为表格已用区域 '如果是首个表格则K为1，则把标题行一起复制到汇总表 '否则扣除标题行后再复制黏贴到总表，只黏贴数值

---

操作过程参考下面的动画教程：

该代码是将分表的数据汇总明细到当前工作表，因此在使用时务必先选择汇总表哦！