请大神指点思路，VBA解决 求和加计数，多条件查找

月下布衣

公司名和品类为条件，求完成进度计数（比如有两个淬炼，就显示淬炼2，），耗费体力值求和，请大神不吝指教，感谢。



################################################
经“weare2” 老师的帮助，目前已可以实现功能！非常感谢，贴出代码，感谢！附件见楼层

1. Sub sss()
   
2. Dim ar3()
   
3. Set D = CreateObject("scripting.dictionary")
   
4. 
   
5. Set d1 = CreateObject("scripting.dictionary")
   
6. Set D2 = CreateObject("scripting.dictionary")
   
7. ar = Range("a2:D" & Cells(Rows.Count, "d").End(3).Row)
   
8. '数据源区域装入数组
   
9. ar1 = Range("f3:g" & Cells(Rows.Count, "g").End(3).Row)
   
10. '求解条件装入数组
    
11. For i = 1 To UBound(ar)
    
12.     D(ar(i, 1) & ar(i, 2) & ar(i, 3)) = D(ar(i, 1) & ar(i, 2) & ar(i, 3)) + ar(i, 4)
    
13.     '按照客户+品类+进度 算耗费体力值
    
14.     d1(ar(i, 1) & ar(i, 2) & ar(i, 3)) = d1(ar(i, 1) & ar(i, 2) & ar(i, 3)) + 1
    
15.     '按照客户+品类+进度 计数
    
16. Next
    
17. For i = 1 To UBound(ar1)
    
18.     D2(ar1(i, 1) & ar1(i, 2)) = ""
    
19. 
    
20. Next
    
21. Debug.Print D2.KEYS
    
22. 
    
23. '客户+品类 去重
    
24. 
    
25. For Each rn In D2.KEYS
    
26. ' 每一个在D2中的关键词
    
27.     For Each ds In D.KEYS
    
28.     '每一个在数据源中的关键词
    
29. <font color="#ff0000">        If InStr(ds, rn) Then
    
30.         '如果条件D2的关键词在数据源中出现的话
    
31.            yd = Right(ds, Len(ds) - Len(rn)) & d1(ds) & "(" & D(ds) & ")" & yd
    
32.                 '取值完成进度& 计数 & 耗费体力值
    
33.         End If</font>

复制代码

weare2

试一试这个，是不是你要的效果

sub麻辣君

思路就是写进数组了循环取值相加

月下布衣

weare2 发表于 2019-9-17 20:55
试一试这个，是不是你要的效果

1. Sub sss()
   
2. Dim ar3()
   
3. Set D = CreateObject("scripting.dictionary")
   
4. 
   
5. Set d1 = CreateObject("scripting.dictionary")
   
6. Set D2 = CreateObject("scripting.dictionary")
   
7. ar = Range("a2:D" & Cells(Rows.Count, "d").End(3).Row)
   
8. '数据源区域装入数组
   
9. ar1 = Range("f3:g" & Cells(Rows.Count, "g").End(3).Row)
   
10. '求解条件装入数组
    
11. For i = 1 To UBound(ar)
    
12.     D(ar(i, 1) & ar(i, 2) & ar(i, 3)) = D(ar(i, 1) & ar(i, 2) & ar(i, 3)) + ar(i, 4)
    
13.     '按照客户+品类+进度 算耗费体力值
    
14.     d1(ar(i, 1) & ar(i, 2) & ar(i, 3)) = d1(ar(i, 1) & ar(i, 2) & ar(i, 3)) + 1
    
15.     '按照客户+品类+进度 计数
    
16. Next
    
17. For i = 1 To UBound(ar1)
    
18.     D2(ar1(i, 1) & ar1(i, 2)) = ""
    
19. 
    
20. Next
    
21. Debug.Print D2.KEYS
    
22. 
    
23. '客户+品类 去重
    
24. Stop
    
25. 
    
26. For Each rn In D2.KEYS
    
27. ' 每一个在D2中的关键词
    
28.     For Each ds In D.KEYS
    
29.     '每一个在数据源中的关键词
    
30. <font color="#ff0000">        If InStr(ds, rn) Then
    
31.         '如果条件D2的关键词在数据源中出现的话
    
32.            yd = Right(ds, Len(ds) - Len(rn)) & d1(ds) & "(" & D(ds) & ")" & yd
    
33.                 '取值完成进度& 计数 & 耗费体力值
    
34.         End If</font>

复制代码

月下布衣

weare2 发表于 2019-9-17 20:55
试一试这个，是不是你要的效果

谢谢！非常感谢！