取满足条件的平均值

beleqing

用VBA算平均值.rar (6.94 KB, 下载次数: 6)

2014-1-19 23:09 上传

点击文件名下载附件

我的问题如图所示，附件在此

zhaogang1960

请参考：

1. Sub 宏1()
   
2.     Dim arr, brr#(), i&, t$, d As Object, ds As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set ds = CreateObject("scripting.dictionary")
   
5.     arr = Range("A1").CurrentRegion
   
6.     For i = 1 To UBound(arr)
   
7.         t = arr(i, 1) & vbTab & arr(i, 2)
   
8.         d(t) = d(t) + 1
   
9.         ds(t) = ds(t) + arr(i, 3)
   
10.     Next
    
11.     ReDim brr(1 To i - 1, 1 To 1)
    
12.     For i = 1 To i - 1
    
13.         t = arr(i, 1) & vbTab & arr(i, 2)
    
14.         brr(i, 1) = ds(t) / d(t)
    
15.     Next
    
16.     [d1].Resize(i - 1) = brr
    
17. End Sub

复制代码

zhaogang1960

请看附件
用VBA算平均值.rar (15.78 KB, 下载次数: 18)

2014-1-19 23:40 上传

点击文件名下载附件

yjh_27

参见附件。

beleqing

谢谢楼上二位的解答成功率！