[已解决]数组字典多条件汇总

飞云流水

如何统计平均值与一个表，见附件，谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-4-17 18:23

(, 下载次数: 88)

上传

点击文件名下载附件

没法测。

跳转到最佳答案楼层

爱疯

不理解题意

建议
1、数据源保留最少量数据，但够理解题意
2、汇总表只留结果。（在帖子中说明，方便对比理解）
3、如果帖子中发截图，会更有利于快速解答

飞云流水

爱疯 发表于 2013-4-17 10:27
不理解题意

建议

更新一下说明，见附件

爱疯

TOP10%平均值= 原始表E列为10%和B列同一分类的A列均值



原始表E列为10%，是什么含义？
B列同一分类的A列，是什么含义？



{:041:}

飞云流水

爱疯 发表于 2013-4-17 10:51
TOP10%平均值= 原始表E列为10%和B列同一分类的A列均值

字段标示，统计时，汇总表的B列只统计原始数据表E列标示为

TOP10%

的平均值

上清宫主

原始数据都是以B列排序了的？（没排序也没关系，加点东东排个序就可以了）
把以B列排序了的数据读入数组，循环进行：B列相同，则以top10等对A列累加并计数，直到B列不同时，进行将先前累加的除以相应计数得平均值，写入数组，累加和计数清空，进入下一个

爱疯

1. Sub test()
   
2.     Dim A, B, C, D, dic
   
3.     Dim i%, j%, s%, t$
   
4. 
   
5.     A = Sheet1.Range("A1").CurrentRegion
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     ReDim B(1 To UBound(A), 1 To 4)   '次数
   
8.     ReDim C(1 To UBound(A), 1 To 4)    '累加
   
9.     ReDim D(1 To UBound(A), 1 To 4)    '均值
   
10. 
    
11.     For i = 2 To UBound(A)
    
12.         t = A(i, 2)
    
13.         If dic.exists(t) = False Then s = s + 1: dic(t) = s
    
14. 
    
15.         '分类统计
    
16.         For j = 5 To UBound(A, 2)
    
17.             If A(i, j) <> "" Then    '结果的第1,2,3列
    
18.                 B(dic(t), j - 4) = B(dic(t), j - 4) + 1
    
19.                 C(dic(t), j - 4) = C(dic(t), j - 4) + A(i, 1)
    
20.                 D(dic(t), j - 4) = C(dic(t), j - 4) / B(dic(t), j - 4)
    
21.             End If
    
22. 
    
23.             If j = UBound(A, 2) Then   '           '结果的第4列
    
24.                 B(dic(t), 4) = B(dic(t), 4) + 1
    
25.                 C(dic(t), 4) = C(dic(t), 4) + A(i, 1)
    
26.                 D(dic(t), 4) = C(dic(t), 4) / B(dic(t), 4)
    
27.             End If
    
28.         Next j
    
29.     Next i
    
30. 
    
31.     With Sheet2
    
32.         .Range("a2:e65536").ClearContents
    
33.         .[a2].Resize(s) = Application.Transpose(dic.keys)
    
34.         .[b2].Resize(s, UBound(D, 2)) = D
    
35.     End With
    
36. End Sub

复制代码

如何汇总3.rar (480.46 KB, 下载次数: 171)

2013-4-17 11:52 上传

点击文件名下载附件

爱疯

上清宫主 发表于 2013-4-17 11:29
原始数据都是以B列排序了的？（没排序也没关系，加点东东排个序就可以了）
把以B列排序了的数据读入数 ...

有点小开心。
这仍是多类汇总题。中途为难的是，为求平均值，次数与和往哪儿存？
核心还是s确定 结果数组的行，学29集http://www.excelpx.com/thread-191424-1-1.html的
不这么做，我还是想不出其它办法。

缺点：
1、B,C,D数组跟不要钱似的
2、全程依赖字典，读取了很多次。

没理解上官说的，是其它办法么？来学习

jxncfxsf

我弄了一个，看好用不。

csmctjg

也来练练手：

1. 
   
2. Sub aa()
   
3.     Dim i%, j%, arr, arr1(), brr(), d As Object
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Sheets("原始数据").Range("A2:G" & Sheets("原始数据").Range("A" & Rows.Count).End(3).Row)
   
6.     For i = 1 To UBound(arr)
   
7.         If Not d.exists(arr(i, 2)) Then
   
8.             d(arr(i, 2)) = Array(IIf(arr(i, 5) <> "", arr(i, 1), 0), IIf(arr(i, 5) <> "", 1, 0), IIf(arr(i, 6) <> "", arr(i, 1), 0), IIf(arr(i, 6) <> "", 1, 0), IIf(arr(i, 7) <> "", arr(i, 1), 0), IIf(arr(i, 7) <> "", 1, 0), arr(i, 1), 1)
   
9.         Else
   
10.             d(arr(i, 2)) = Array(d(arr(i, 2))(0) + IIf(arr(i, 5) <> "", arr(i, 1), 0), d(arr(i, 2))(1) + IIf(arr(i, 5) <> "", 1, 0), d(arr(i, 2))(2) + IIf(arr(i, 6) <> "", arr(i, 1), 0), d(arr(i, 2))(3) + IIf(arr(i, 6) <> "", 1, 0), d(arr(i, 2))(4) + IIf(arr(i, 7) <> "", arr(i, 1), 0), d(arr(i, 2))(5) + IIf(arr(i, 7) <> "", 1, 0), d(arr(i, 2))(6) + arr(i, 1), d(arr(i, 2))(7) + 1)
    
11.         End If
    
12.     Next
    
13.     Sheets("汇总表").[A2].Resize(d.Count) = Application.Transpose(d.keys)
    
14.     arr1 = d.items
    
15.     ReDim brr(0 To UBound(arr1), 1 To 4)
    
16.     For i = 0 To UBound(arr1)
    
17.         For j = 1 To 4
    
18.             If arr1(i)(2 * j - 1) <> 0 Then brr(i, j) = arr1(i)(2 * j - 2) / arr1(i)(2 * j - 1)
    
19.         Next
    
20.     Next
    
21.     Sheets("汇总表").[B2].Resize(d.Count, 4) = brr
    
22. End Sub
    

复制代码