一商品有多个分类标签 如何统计多个分类标签和

蓝帝西斯

一商品有多个分类标签 如何统计每个分类标之和

cnmlgb9998

借楼练一下 PQ 方案。。。。。。。。。


是这个效果吗？

shiruiqiang

“分类”拆分成字典求和

LIUZHU

在下愚钝，没看懂问题

chxw68

参与一下。

gwjkkkkk

=SUM(IFERROR(FIND(E2,$B$2:$B$4)^0*$C$2:$C$4,0))
数组三键

longwin

参与一下：

ykcbf1100

关键字：字典+split函数

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.5
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 3)
   
5.     ReDim brr(1 To UBound(arr), 1 To 2)
   
6.     For i = 2 To UBound(arr)
   
7.         st = Split(arr(i, 2), "、")
   
8.         For x = 0 To UBound(st)
   
9.             s = st(x)
   
10.             If Not d.exists(s) Then
    
11.                 m = m + 1
    
12.                 d(s) = m
    
13.                 brr(m, 1) = s
    
14.                 brr(m, 2) = arr(i, 3)
    
15.             Else
    
16.                 r = d(s)
    
17.                 brr(r, 2) = brr(r, 2) + arr(i, 3)
    
18.             End If
    
19.         Next
    
20.     Next
    
21.     [e2:f1000] = ""
    
22.     [e2].Resize(m, 2) = brr
    
23.     Set d = Nothing
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To 10000, 1 To 2)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If arr(i, 2) <> "" Then
      fl = Split(arr(i, 2), "、")
      For j = 0 To UBound(fl)
         If Not d.exists(fl(j)) Then
            m = m + 1
            brr(m, 1) = fl(j)
            brr(m, 2) = arr(i, 3)
            d(fl(j)) = m
         Else
            r = d(fl(j))
            brr(r, 2) = brr(r, 2) + arr(i, 3)
         End If
      Next
   End If
Next
[e1].Resize(, 2) = Array("分类", "金额")
[e2].Resize(m, 2) = brr
End Sub