[已解决]根据条件汇总数据

sure

各位老师好，我有一个数据想处理，判断不同时间，测试的样品数量和测试总时间，但是写的循环处理太慢，对于大数据量处理比较花时间，所以想请大神，有没有比较简洁的代码来处理。主要思路是根据source里不同的日期，譬如B列2016/1/5，找出有几个不同的DCSN，统计数量，放入Summary的B列，测试时间就是所有2016/1/5的Total Test Time相加的和，放入Summary的C列。
模板请参见附件，谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2017-5-25 13:58

源数据限定范围后，速度可以增加很多。

跳转到最佳答案楼层

sure

自顶一下(⊙﹏⊙)b

grf1973

请看附件。

grf1973

源数据限定范围后，速度可以增加很多。

sure

grf1973 发表于 2017-5-25 13:58
源数据限定范围后，速度可以增加很多。

谢谢老师，已经字典法解决了，不过你的方法值得我学习一下

grf1973

用数组字典速度会快10倍。

1. Sub grf1()
   
2.     tt = Timer
   
3.     arr = Sheets("Source").[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 3)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Set d1 = CreateObject("scripting.dictionary")
   
7.     For i = 2 To UBound(arr)
   
8.         rq = arr(i, 2): x = arr(i, 1) & rq
   
9.         If Not d.exists(rq) Then
   
10.             n = n + 1
    
11.             brr(n, 1) = rq
    
12.             d(rq) = n
    
13.         End If
    
14.         p = d(rq)
    
15.         If Not d1.exists(x) Then
    
16.             brr(p, 2) = brr(p, 2) + 1
    
17.             d1(x) = ""
    
18.         End If
    
19.         brr(p, 3) = brr(p, 3) + arr(i, 3)
    
20.     Next
    
21.     [a2].Resize(n, 3) = brr
    
22.     MsgBox Timer - tt
    
23. End Sub

复制代码