运费计算

42921783

C列每一个订单编码对应一个D列重量，但C列订单编码是有重复的。现需要对各订单的重量进行求和放在A列，且重复订单的求和重量只显示一次即可，即保证D列重量合计值跟A列重量合计值相同。

第2步问题详见5楼和6楼说明。

KCFONG

see if help you

zhaogang1960

邀请收到，请参考：

1. Sub 宏1()
   
2.     Dim arr, brr(), i&, d As Object, ds As Object, t1, t2
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set ds = CreateObject("scripting.dictionary")
   
5.     arr = [a1].CurrentRegion
   
6.     ReDim brr(2 To UBound(arr), 1 To 1)
   
7.     For i = 2 To UBound(arr)
   
8.         If Not d.Exists(arr(i, 3)) Then d(arr(i, 3)) = i
   
9.         ds(arr(i, 3)) = ds(arr(i, 3)) + arr(i, 4)
   
10.     Next
    
11.     t1 = d.items
    
12.     t2 = ds.items
    
13.     For i = 0 To d.Count - 1
    
14.         brr(t1(i), 1) = t2(i)
    
15.     Next
    
16.     [a2].Resize(UBound(brr) - 1) = brr
    
17. End Sub
    

复制代码

zhaogang1960

请测试附件
运费计算.rar (109.85 KB, 下载次数: 92)

2014-3-5 17:13 上传

点击文件名下载附件

42921783

得出A列后，后续问题如图片所示。

B .根据上一步骤，A列为每个不重复订单的重量合计值，每个订单的运费计算需判断的因素有：库房编码、快递公司、目的省、目的市、重量，而运算因素有：首重、首重收费、续重1KG收费、上门服务费，订单运费=首重收费+续重1KG收费*（重量-首重）+上门服务费。如何得出每个订单的运费。

42921783

42921783 发表于 2014-3-5 17:25
得出A列后，后续问题如图片所示。

B .根据上一步骤，A列为每个不重复订单的重量合计值，每个订单的运费计 ...

重量不同情况下，运算因素对应的数值也变化。

zm0115

好久没来，参与一下！

1. Sub TEST()
   
2. 
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. 
   
5. arr = Range("c2:d" & Cells(Rows.Count, 3).End(3).Row)
   
6. 
   
7. For x = 1 To UBound(arr)
   
8. If d.exists(arr(x, 1)) Then
   
9.     d(arr(x, 1)) = Split(d(arr(x, 1)), "$")(0) + arr(x, 2) & "$" & Split(d(arr(x, 1)), "$")(1)
   
10.    
    
11. Else
    
12.     d(arr(x, 1)) = arr(x, 2) & "$" & x + 1
    
13.    
    
14. End If
    
15. Next
    
16. 
    
17. For Each mk In d.KEYS
    
18.   Cells(Split(d(mk), "$")(1), 1) = Split(d(mk), "$")(0)
    
19. Next
    
20. 
    
21. Set d = Nothing
    
22. 
    
23. End Sub
    

复制代码

42921783

zm0115 发表于 2014-3-5 17:33
好久没来，参与一下！

第2步问题详见5楼和6楼说明，请继续参与。

KCFONG

运费标准
重量 <=3  , <=5, >10 ????

42921783

KCFONG 发表于 2014-3-5 18:51
运费标准
重量

订单重量合计值按这些条件进行判断，选取不同的计算标准核算订单运费。