|
- Sub test()
- ar = Range("A1").CurrentRegion.Rows.Count
- arr = Range("A2:G" & ar)
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d2 = CreateObject("Scripting.Dictionary")
- For i = 1 To ar - 1
- d1(arr(i, 2)) = d1(arr(i, 2)) + arr(i, 7)
- d2(arr(i, 2)) = d2(arr(i, 2)) + 1
- Next
- m1 = d1.keys
- n1 = d1.items
- n2 = d2.items
- Range("K1").Resize(1, 2) = Array("代码", "单价平均值")
- Range("K2").Resize(d1.Count, 1) = Application.Transpose(m1)
- For j = 2 To d1.Count + 1
- Cells(j, "L") = n1(j - 2) / n2(j - 2)
- Next
- Set d1 = Nothing
- Set d2 = Nothing
- End Sub
复制代码 |
|