如何实现将"/"符号前后的原料代码拆开然后统计数量

wcchuang0323

我有一份清单，里面的备注栏位表示使用的原料代码及数量
使用多种原料时会用"/"斜线符号隔开
比如TL0302:0.075/TL0313:0.002，即是每单位使用TL0302原料0.075、TL0313原料0.002
请问如何实现一次性统计总共使用多少原料呢?

感谢!

无敌小猪猪

不知道是不是这样，写了个简易的自定义函数

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("導出所有基礎資料2-0")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a2:e" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             xm = Split(arr(i, 5), "/")
    
11.             For j = 0 To UBound(xm)
    
12.                 xx = Split(xm(j), ":")
    
13.                 d(xx(0)) = d(xx(0)) + Val(xx(1))
    
14.             Next
    
15.         Next
    
16.         .Range("j1").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
17.     End With
    
18. End Sub
    

复制代码

chxw68

详见附件。

lihaosh

1. Sub test1()
   
2.     Dim r As Long, i As Long, j As Long
   
3.     Dim arr As Variant, xm As Variant, xx As Variant
   
4.     Dim d As Object
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     With Worksheets("導出所有基礎資料2-0")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("A2:E" & r).Value
   
9.         For i = 1 To UBound(arr)
   
10.             xm = Split(arr(i, 5), "/")
    
11.             For j = 0 To UBound(xm)
    
12.                 xx = Split(xm(j), ":")
    
13.                 If d.Exists(xx(0)) Then
    
14.                     d(xx(0)) = d(xx(0)) + Val(xx(1))
    
15.                 Else
    
16.                     d.Add xx(0), Val(xx(1))
    
17.                 End If
    
18.             Next j
    
19.         Next i
    
20.         Dim keysArr As Variant, itemsArr As Variant
    
21.         keysArr = d.Keys
    
22.         itemsArr = d.Items
    
23.         .Range("J1").Resize(d.Count, 2).Value = Application.Transpose(Array(keysArr, itemsArr))
    
24.     End With
    
25. End Sub
    

复制代码

wcchuang0323

chxw68 发表于 2023-4-13 21:15
详见附件。

感谢帮助，加上了与数量相乘后就实现我要的效果了，也谢谢其他人的协助

chxw68

修改好了。

wcchuang0323

chxw68 发表于 2023-4-14 18:39
修改好了。

我也是自行加了 *arr(i, 3) 上去就修改完成了，小地方还能自行修改，但整体大方向实在是需要人提点，非常感谢您!