怎么样通过vba实现这样的汇总？

ampa

如附件所示，我想得到每个班级所对应变量1到变量8的均值，我只会通过字典做两列的数据，像这种多列的数据我就不会做了，请老师指点一下 谢谢啦

windimi007

最终效果是怎么样的？否则无从下手……

hrpotter

这种格式为什么不用数据透视表呢，非要VBA!

hrpotter

1. Sub 汇总求平均值()
   
2.     Dim ar, br(1 To 100, 1 To 9), cr(1 To 100)
   
3.     Dim d As Object
   
4.     Dim i As Integer, j As Integer, k As Integer, s As Integer
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     ar = Range("a1").CurrentRegion
   
7.     For i = 2 To UBound(ar)
   
8.         If d.exists(ar(i, 1)) Then
   
9.             s = d(ar(i, 1))
   
10.             cr(s) = cr(s) + 1
    
11.             For j = 2 To 9
    
12.                 br(s, j) = br(s, j) + ar(i, j)
    
13.             Next
    
14.         Else
    
15.             k = k + 1
    
16.             d(ar(i, 1)) = k
    
17.             cr(k) = 1
    
18.             For j = 1 To 9
    
19.                 br(k, j) = ar(i, j)
    
20.             Next
    
21.         End If
    
22.     Next
    
23.     For i = 1 To k
    
24.         For j = 2 To 9
    
25.             br(i, j) = br(i, j) / cr(i)
    
26.         Next
    
27.     Next
    
28.     Range("k1").Resize(1, 9) = Range("a1:i1").Value
    
29.     Range("k2").Resize(k, 9) = br
    
30. End Sub

复制代码

xpw6061

最简单的方式: 汇总.zip (15.77 KB, 下载次数: 10)

2012-5-24 20:35 上传

点击文件名下载附件 结果在工作表sheet2

ampa

多谢 楼上各位  谢谢