如何统计多个销售的销售金额

cswstone

求助：一个产品如果有多个销售，最后需要统计每一个销售的金额。有多个销售的产品，需要把金额拆开，一人一半。怎么实现呢？
输出的结果为
销售 金额
张三  40
李四  50
王五  250
赵六  250


详情见附件。

jsgj2023

如果销售3人是3等分,4人是4等分吗?

onlycxb

用字典进行统计吧

alstar

jsgj2023 发表于 2018-9-21 17:17
如果销售3人是3等分,4人是4等分吗?

应该是。坐等版主的字典思路精髓。

不知道为什么

参考

1. Sub test()
   
2.     Dim Arr, Dic, i&, j&
   
3.     Set Dic = CreateObject("scripting.dictionary")
   
4.     Arr = [a1].CurrentRegion
   
5.     For i = 2 To UBound(Arr)
   
6.         If InStr(Arr(i, 3), ",") Then
   
7.             s = Arr(i, 2) / (UBound(Split(Arr(i, 3), ",")) + 1)
   
8.             For j = 0 To UBound(Split(Arr(i, 3), ","))
   
9.                 Dic(Split(Arr(i, 3), ",")(j)) = Dic(Split(Arr(i, 3), ",")(j)) + s
   
10.             Next j
    
11.         Else
    
12.             Dic(Arr(i, 3)) = Dic(Arr(i, 3)) + Arr(i, 2)
    
13.         End If
    
14.     Next i
    
15.     [e2].Resize(Dic.Count, 2) = Application.Transpose(Array(Dic.keys, Dic.items))
    
16.     Set Dic = Nothing
    
17. End Sub
    

复制代码

cswstone

不知道为什么 发表于 2018-9-21 17:31
参考

谢谢 谢谢大神

cswstone

jsgj2023 发表于 2018-9-21 17:17
如果销售3人是3等分,4人是4等分吗?

是这样的，就一直等分。