关于多条件求和，萌新求教

阳光、尘

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

源数据

求和区

过滤区

用户ID

金额

产品ID

日期

产品ID\日期

2019/2/1

2019/2/2

2019/2/3

2019/2/4

2019/2/5

2019/2/6

2019/2/7

2019/2/8

白名单

4595048

1.99

2usd.5M1

2019/2/1

2usd.5M1

4595048

5397443

3.99

4usd.Daily1

2019/2/2

4usd.Daily1

5397443

5397443

1.99

2usd.5M1

2019/2/2

5usd.5M3

2677057

4830218

4.99

5usd.5M3

2019/2/3

1usd.Daily1

5287601

5583924

0.99

1usd.Daily1

2019/2/3

3usd.Daily3

5700518

5658603

2.99

3usd.Daily3

2019/2/3

20usd.build

6150842

4830218

2.99

3usd.Daily3

2019/2/3

5usd.Daily2

5695476

19.99

20usd.build

2019/2/4

2usd.Daily2

5211956

4.99

5usd.Daily2

2019/2/4

10usd.Daily3

2603061

4.99

5usd.5M3

2019/2/4

100usd.gem

2677057

4.99

5usd.5M3

2019/2/4

20usd.War

1418648

4.99

5usd.5M3

2019/2/4

5usd.Friday

5508233

1.99

2usd.Daily2

2019/2/4

1usd.First

4426892

4.99

5usd.5M3

2019/2/5

2490729

9.99

10usd.Daily3

2019/2/5

5287601

4.99

5usd.5M3

2019/2/5

说明

5658603

99.99

100usd.gem

2019/2/5

源数据是简化版的，实际真实数据会有10万条以上

5508233

4.99

5usd.5M3

2019/2/6

过滤区是白名单用户，实际数据600条左右

5695476

19.99

20usd.War

2019/2/6

求和区需要求得对应产品ID去除白名单账号金额的总金额

5700518

4.99

5usd.Friday

2019/2/7

4018043

4.99

5usd.5M3

2019/2/7

5980859

0.99

1usd.First

2019/2/8

阳光、尘

emmmmm，直接添加的表格看着有点奇怪，大神们可以看看附件，非常感谢

mmlzh

数组公式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))

丢丢表格

10万火急 ，还是透视吧

阳光、尘

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，正在学习中

阳光、尘

丢丢表格 发表于 2019-2-11 19:46
10万火急 ，还是透视吧

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

micch

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

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

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

阳光、尘

micch 发表于 2019-2-11 22:39
数据多，数组公式就不适合了，辅助+透视表很好啊，透视表都是自动更新，日常数据更新结果自动更新。

...

感谢，我知道怎么处理了

阳光、尘

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))

再次感谢大神

mmlzh

用字典写的代码，如果日期过多则过滤区会被覆盖

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

复制代码