如何把工作表标签颜色相同的表记录进行汇总？

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

楼主 liuguansky	Q：如何把标上颜色的工作表里面编号相同，F列数据汇总到SHEET表的F列？ A：用如下代码可以实现： Sub justtest() Dim j%, i&, k%, arr, d, arrt(), str$ Set d = CreateObject("scripting.dictionary") '创建字典项目 With Worksheets("sheet1") k = .Tab.ColorIndex '获取标签颜色 arr = .Cells(2, 2).Resize(.Cells(.Rows.Count, 2).End(3).Row - 1, 2).Value '获取待统计数据入数组 ReDim arrt(1 To UBound(arr, 1), 1 To 1) For i = 1 To UBound(arr, 1) '定义数据惟一标识位 str = arr(i, 1) & vbTab & arr(i, 2) d(str) = i Next i For j = 1 To Worksheets.Count '循环工作表 With Worksheets(j) If .Tab.ColorIndex <> k Then '若工作表标签颜色同，则进行处理 arr = .Cells(2, 2).Resize(.Cells(.Rows.Count, 2).End(3).Row - 1, 5).Value For i = 1 To UBound(arr, 1) str = arr(i, 1) & vbTab & arr(i, 2) If d.Exists(str) Then '如果存在字典项目，则对对应标识位置进行累加 arrt(d(str), 1) = arrt(d(str), 1) + arr(i, 5) End If Next i End If End With Next j .Range("f2:f" & Rows.Count).ClearContents .Cells(2, "f").Resize(UBound(arrt, 1), 1) = arrt End With Set d = Nothing End Sub 该贴已经同步到
2楼 pcxangle	这个对于我来说是天书，不过相信不久的将来我会明白的
3楼悠悠雨	采编
4楼 jiminyanyan	为什么附件无法下载呀。。
5楼 wqfzqgk	对于各种版本来说，不是完全实用
6楼 zhenweida90	好贴，内容早晚要用到的，谢谢。

免责声明

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

评论列表