求平均数量的代码，请老师帮助。

20090930

下面是合计数量的代码，现在求平均数量的代码，请老师帮助。
Private Sub 合计数量_Click()

  Dim r%, i%
  Dim Arr, brr
  Dim d As Object
  Set d = CreateObject("scripting.dictionary")
  With Worksheets("sheet1")
    r = .Cells(.Rows.Count, 2).End(xlUp).Row
    .Range("E" & r + 1 & ":F65536").ClearContents
    Arr = .Range("B5:F" & r)
    For i = 1 To UBound(Arr)
      If Not d.Exists(Arr(i, 1)) Then
      ReDim brr(1 To 2)
      brr(1) = Arr(i, 1)
      Else
      brr = d(Arr(i, 1))
      End If
      brr(2) = brr(2) + Arr(i, 2)
      d(Arr(i, 1)) = brr
    Next i
   Range("E" & 5).Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.Items))
End With
End Sub
附件：
附件.rar (10.75 KB, 下载次数: 2)

2018-9-18 10:51 上传

点击文件名下载附件

chxw68

说说思路：将数组做为item赋值给字典，一个记录数量，一个记录个数，然后就可以计算平均值了。

wj2368

。。。。。。。。。。。。。。。

20090930

多谢楼上两位老师

20090930

chxw68 发表于 2018-9-18 11:01
说说思路：将数组做为item赋值给字典，一个记录数量，一个记录个数，然后就可以计算平均值了。

记录个数的代码？求帮助。

wj2368

20090930 发表于 2018-9-18 11:54
记录个数的代码？求帮助。

brr(3)就是。。。