【已解决】运用字典、数组求平均值遇到问题

libaoshui

如图，在统计汇总求平均值过程遇到问题，表1为明细表，表2.1、2.2为分析表
1、表2.1-分析表中，C的平均分不显示（单元格I4），不知道为什么呢？
2、表2.2-分析表中，平均分计算均为错误，实际上这个是最终希望展现的报表格式，而不是表2.1（增加一列数据，为了方便计算）
希望高手能帮助答疑解惑，谢谢！
【问题已解决】感谢各位帮助支持！特别是@zxsea_7426提供的思路，①将数组作为字典的Items，②结果只取数组前3列。
现将代码贴出，供有需要朋友参考！

1. Sub bb()
   
2. Dim d As Object, i%, arr, a, b, c, e
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.[a1].CurrentRegion
   
5. Range("l2:n4") = ""
   
6. For i = 2 To UBound(arr)
   
7.     If Not d.exists(arr(i, 1)) Then
   
8.         a = arr(i, 1)
   
9.         b = arr(i, 2)                               '总分
   
10.         c = arr(i, 2)                               '平均分
    
11.         e = 1                                       '次数
    
12.         d(arr(i, 1)) = Array(a, b, c, e)            '姓名作为Key，数组（姓名、总分、平均分、次数）作为Items
    
13.     Else
    
14.         a = d(arr(i, 1))(0)
    
15.         b = d(arr(i, 1))(1) + arr(i, 2)              '总分累加
    
16.         e = d(arr(i, 1))(3) + 1                      '次数累加
    
17.         c = b / e                                    '计算平均分
    
18.         d(arr(i, 1)) = Array(a, b, c, e)
    
19.     End If
    
20. Next
    
21. [l2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))   '两次转置，取数组前3列值
    
22. End Sub

复制代码

shiruiqiang

zxsea_7426

纯字典：

yanglinzi

yanglinzi

参与一下....

Hontyu

...........

libaoshui

zxsea_7426 发表于 2023-5-28 16:29
纯字典：

感谢答疑解惑！学习到两个知识点：
1、将数组Array(a,b,c,e)作为字典的Items，高明！
2、最终结果只取数组中部分内容，如数组共4列，只取前3列，精妙！
有个疑问点：如果最终结果取数组某一列或某几列，怎么取值呢？d.items(0)或者d.items(1,2)，尝试了下好像不行吧，烦请再指教下，谢谢！

全党

试试。。。。。。。。。。。。。。。。。

山海风云轩

做个记号，学习学习

fenghuaxue

Hontyu 发表于 2023-5-28 17:24
...........

为什么我打开附件时提示要修复。