数据汇总的几种常用简易方法

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

楼主嘉昆2011	问题陈述：如何汇总新项目在另一月份的销售量 1，数据透视表，详见动画 2，SQL Select 产品名称, 规格, Sum(数量) as 数量, Sum(金额) as 金额 From [汇总常用方法$A2:E62] Where 规格 Not In (Select 规格 From [汇总常用方法$B68:E76]) Group by 产品名称, 规格效果如下： 3，VBA+基本操作代码如下： Sub VBA_Dict() Dim dd1 As Object, dd2 As Object, Arr(), Brr(), Crr() Set dd1 = CreateObject("Scripting.dictionary") Set dd2 = CreateObject("Scripting.dictionary") Arr = Range("B69").CurrentRegion '数组读取四月份销售记录 Brr = Range("A3").CurrentRegion '数组读取五月份销售记录 Range("H3:K22").ClearContents For i = 3 To UBound(Arr) dd1.Add Arr(i, 1) & Arr(i, 2), "" '以产品名称和规格连接建立关键字 Next i For i = 3 To UBound(Brr) If Not dd1.Exists(Brr(i, 2) & Brr(i, 3)) Then '判断是否在字典1中 If dd2.Exists(Brr(i, 2) & Brr(i, 3)) Then '判断是否在字典2中 n = dd2(Brr(i, 2) & Brr(i, 3)) '若在字典2中，读取相应序号 Else m = m + 1 '若不在字典2中，设立新序号 dd2.Add Brr(i, 2) & Brr(i, 3), m '并添加到字典2中 ReDim Preserve Crr(1 To 4, 1 To m) Crr(1, m) = Brr(i, 2) Crr(2, m) = Brr(i, 3) '数组存取产品名称和规格 n = m '把序号传递赋值于n End If Crr(3, n) = Crr(3, n) + Brr(i, 4) Crr(4, n) = Crr(4, n) + Brr(i, 5) End If Next i Range("H3").Resize(m, 4).Value = WorksheetFunction.Transpose(Crr) Set dd1 = Nothing Set dd2 = Nothing End Sub 基本操作：数据——筛选：主关键字：产品名称；次关键字：规格；均升序附件：汇总常用方法.rar
2楼 rabbitllu	真全呀，占沙发，学习了，谢谢分享
3楼滴水穿石	V白，看不懂，不知道难不难，先占个位置，留着以后慢慢学习~
4楼亡者天下	好像还漏了一个分类汇总哦
5楼 xmyjk	嘉昆凌晨6点多在发帖，辛苦了。
6楼嘉昆2011	多谢支持哦。

免责声明

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

评论列表