求大侠帮助，如何求同类商品数量合计？

zhangcheng6688

借楼学习一下字典，打扰了
Sub test()
arr = [e1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
Next
brr = [a1].CurrentRegion
For i = 2 To UBound(brr)
   splb = Split(brr(i, 1), "/")
   For j = 0 To UBound(splb)
      Sum = Sum + dic(splb(j))
   Next
   brr(i, 2) = Sum
   Sum = 0
Next
[a1].CurrentRegion = brr
End Sub

菜狗一只

1. =SUM(INDEX($F$2:$F$14,MATCH(TEXTSPLIT(A2,,"/"),$E$2:$E$14,0)))

复制代码

菜狗一只

1. Sub test()
   
2.     Dim myarray() As String, i As Long, index As Long, k As String, st As Double
   
3.     Dim k1 As Range, lastRowE As Long, lastRowA As Long
   
4.    
   
5.     lastRowE = Cells(Rows.Count, 5).End(xlUp).Row 'E列最后有效行
   
6.     lastRowA = Cells(Rows.Count, 1).End(xlUp).Row 'A列最后有效行
   
7.    
   
8.     For i = 2 To lastRowA
   
9.         st = 0
   
10.         If Cells(i, 1) <> "" Then
    
11.             myarray = Split(Cells(i, 1), "/")
    
12.             
    
13.             For index = LBound(myarray) To UBound(myarray)
    
14.                 k = Trim(myarray(index)) '去除空格
    
15.                 If k <> "" Then '跳过空值
    
16.                     Set k1 = Range("E2:E" & lastRowE).Find(k, LookIn:=xlValues, LookAt:=xlWhole)
    
17.                     If Not k1 Is Nothing Then
    
18.                         st = st + k1.Offset(0, 1).Value 'F列值累加
    
19.                     'Else
    
20.                         '可选：记录未找到的编码
    
21.                         'Debug.Print "编码 " & k & " 不存在"
    
22.                     End If
    
23.                 End If
    
24.             Next index
    
25.             
    
26.             Cells(i, 2) = st
    
27.         End If
    
28.     Next i
    
29. End Sub
    

复制代码

军生

世界客都 发表于 2025-4-3 11:20

REGEXP  什么版？

roserice

=SUM(VLOOKUP(REGEXEXTRACT(A2,"\d+",1),$E$2:$F$14,2,FALSE))