如何用vba代码实现多表快速定位数据并合并计算汇总？

作者：绿色风分类：时间：2022-08-17 浏览：103

楼主 kevinchengcw	Q: 如何用vba代码实现多表快速定位数据并合并计算汇总？ A: 示例代码如下： Sub test2() Dim Rng As Range, Ws As Worksheet, Dic, Str$ Set Dic = CreateObject("scripting.dictionary") '创建字典项目，用于储存各表中需合并计算的区域 For Each Ws In Worksheets '循环各表 If Ws.Name <> "汇总表" Then '如果表名不是汇总页的表名，则 With Ws If WorksheetFunction.CountIf(.UsedRange, "单位名称") > 0 Then '如果已使用区域存在关键字，则 Set Rng = .UsedRange.Find("单位名称") '将关键字单元格赋值给变量 Str = "'" & .Name & "'!R" & Rng.Row & "C" & Rng.Column & ":R" & Rng.End(4).Row & "C" & Rng.End(2).Column '将表名及关键字单元格与数据区域范围(RC格式)串接成字符串做key，存入字典中 Dic.Add Str, "" End If End With End If Next Ws With Worksheets("汇总表") Set Rng = .UsedRange.Find("单位名称") '查找汇总页中的关键字单元格 Rng.Consolidate Sources:=Dic.keys, Function:=xlSum, TopRow:=True, LeftColumn:=True '以关键字单元格为左上角，合并计算字典中所取得的各工作表数据范围中的内容 End With Set Dic = Nothing '清空字典项目 End Sub 思路分析： 1. 利用字典承载各表中的数据区域，优点是不限数量； 2. 利用excel本身的合并计算功能快速完成数据统计工作。附示例文件。利用vba及合并计算快速汇总各表内容到汇总表.rar
2楼 eqzh	楼主给代码稍微解释一下，尤其是关键语句？？？
3楼 yf234	很好的代码，谢谢版主，期待版主的进一步分析。
4楼 tiger2003	很实用的代码，谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表