ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 407|回复: 10

[已解决] 关于多条件求和,萌新求教

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 19:29 | 显示全部楼层 |阅读模式
本帖最后由 阳光、尘 于 2019-2-12 09:38 编辑

萌新求教,如下表格,想要求得对应产品ID去除白名单账号金额的总金额


源数据
求和区
过滤区
用户ID金额产品ID日期产品ID\日期2019/2/12019/2/22019/2/32019/2/42019/2/52019/2/62019/2/72019/2/8白名单
45950481.992usd.5M12019/2/12usd.5M1 4595048
53974433.994usd.Daily12019/2/24usd.Daily1 5397443
53974431.992usd.5M12019/2/25usd.5M3 2677057
48302184.995usd.5M32019/2/31usd.Daily1 5287601
55839240.991usd.Daily12019/2/33usd.Daily3 5700518
56586032.993usd.Daily32019/2/320usd.build 6150842
48302182.993usd.Daily32019/2/35usd.Daily2 
569547619.9920usd.build2019/2/42usd.Daily2 
52119564.995usd.Daily22019/2/410usd.Daily3 
26030614.995usd.5M32019/2/4100usd.gem 
26770574.995usd.5M32019/2/420usd.War 
14186484.995usd.5M32019/2/45usd.Friday 
55082331.992usd.Daily22019/2/41usd.First        
44268924.995usd.5M32019/2/5
24907299.9910usd.Daily32019/2/5
52876014.995usd.5M32019/2/5说明
565860399.99100usd.gem2019/2/5源数据是简化版的,实际真实数据会有10万条以上
55082334.995usd.5M32019/2/6过滤区是白名单用户,实际数据600条左右
569547619.9920usd.War2019/2/6求和区需要求得对应产品ID去除白名单账号金额的总金额
57005184.995usd.Friday2019/2/7
40180434.995usd.5M32019/2/7
59808590.991usd.First2019/2/8






多条件求和.7z

8.43 KB, 下载次数: 14

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 19:30 | 显示全部楼层
emmmmm,直接添加的表格看着有点奇怪,大神们可以看看附件,非常感谢

TA的精华主题

TA的得分主题

发表于 2019-2-11 19:37 | 显示全部楼层
数组公式G3=SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2)-SUM(SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2,$A:$A,$P$3:$P$8))

TA的精华主题

TA的得分主题

发表于 2019-2-11 19:46 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 19:48 | 显示全部楼层
mmlzh 发表于 2019-2-11 19:37
数组公式G3=SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2)-SUM(SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2,$A:$A,$P$3:$P$8))

感谢大神,模拟的数据没问题了
只不过真实的数据量过大,用数组卡爆了
听说用vba可以很好的解决此问题
小萌新还没接触到vba,正在学习中

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 20:01 | 显示全部楼层
丢丢表格 发表于 2019-2-11 19:46
10万火急 ,还是透视吧

非常感谢,要是偶尔查看的话,倒是可以做透视,简单方便明了
不过我是打算长期日常维护的,透视就感觉就有点没那么好用了

TA的精华主题

TA的得分主题

发表于 2019-2-11 22:39 | 显示全部楼层
阳光、尘 发表于 2019-2-11 20:01
非常感谢,要是偶尔查看的话,倒是可以做透视,简单方便明了
不过我是打算长期日常维护的,透视就感觉就 ...

数据多,数组公式就不适合了,辅助+透视表很好啊,透视表都是自动更新,日常数据更新结果自动更新。

代码,每次数据更新,还需要执行一次代码呢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 09:32 | 显示全部楼层
micch 发表于 2019-2-11 22:39
数据多,数组公式就不适合了,辅助+透视表很好啊,透视表都是自动更新,日常数据更新结果自动更新。

...

感谢,我知道怎么处理了

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 09:36 | 显示全部楼层
mmlzh 发表于 2019-2-11 19:37
数组公式G3=SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2)-SUM(SUMIFS($B:$B,$C:$C,$F3,$D:$D,G$2,$A:$A,$P$3:$P$8))

再次感谢大神

TA的精华主题

TA的得分主题

发表于 2019-2-12 17:27 | 显示全部楼层
用字典写的代码,如果日期过多则过滤区会被覆盖
  1. Sub TJ1()
  2.    Dim I&, J&, K&, Dic1, Dic2, Dic3, Arr, Brr, Crr
  3.    Set Dic1 = CreateObject("Scripting.Dictionary")
  4.    Set Dic2 = CreateObject("Scripting.Dictionary")
  5.    Set Dic3 = CreateObject("Scripting.Dictionary")
  6.    Arr = Range("A3:D" & [A65535].End(xlUp).Row)
  7.    Brr = Range("P1:P" & [P65535].End(xlUp).Row)
  8.    For I = 1 To UBound(Brr)
  9.       Dic1(Brr(I, 1)) = ""
  10.    Next
  11.    For I = 1 To UBound(Arr)
  12.       If Not Dic2.Exists(Arr(I, 3)) Then J = J + 1: Dic2(Arr(I, 3)) = J
  13.       If Not Dic3.Exists(Arr(I, 4)) Then K = K + 1: Dic3(Arr(I, 4)) = K
  14.    Next
  15.    ReDim Crr(1 To Dic2.Count, 1 To Dic3.Count)
  16.    For I = 1 To UBound(Arr)
  17.       If Not Dic1.Exists(Arr(I, 1)) Then Crr(Dic2(Arr(I, 3)), Dic3(Arr(I, 4))) = Crr(Dic2(Arr(I, 3)), Dic3(Arr(I, 4))) + Arr(I, 2)
  18.    Next
  19.    Range("F2:O" & [F2].End(xlDown).Row).ClearContents
  20.    [F2] = "产品ID\日期"
  21.    [G2].Resize(, Dic3.Count) = Dic3.Keys
  22.    [F3].Resize(Dic2.Count) = Application.Transpose(Dic2.Keys)
  23.    [G3].Resize(Dic2.Count, Dic3.Count) = Crr
  24.    Set Dic1 = Nothing
  25.    Set Dic2 = Nothing
  26.    Set Dic3 = Nothing
  27. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-18 05:16 , Processed in 0.076387 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表