|
发表于 2016-4-20 17:08
|
显示全部楼层
本楼为最佳答案
- Sub 分组分段统计()
- arr = [a1].CurrentRegion
- Set d = CreateObject("scripting.dictionary")
- Set d1 = CreateObject("scripting.dictionary")
- For i = 2 To UBound(arr)
- If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
- x = arr(i, 1)
- d(x) = d(x) + arr(i, 3)
- If d(x) > 0 Then d1(x) = d1(x) + arr(i, 3) * arr(i, 4)
- Next
- [L2].Resize(d.Count, 3) = Application.Transpose(Array(d.keys, d.items, d1.items))
- For i = 2 To d.Count + 1
- Cells(i, "N") = Cells(i, "N") / Cells(i, "M")
- Next
- End Sub
复制代码 |
|