动态表统计某一品目的数量及个数问题

hyzjb12

求助各位大佬：
A~E列每次数据行数不固定，统计日别OEM_Exp有数量的个数及数量累计，谢谢！

沈默00

沈默00

结果放在M列

hyzjb12

沈默00 发表于 2023-12-30 07:56
结果放在M列

非常感谢您无私的帮助！代码可以用，解决了工作中日常重复性统计的问题，再次谢谢

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.30
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 2).End(3).Row
   
4.     arr = Range("a1:e" & r)
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 1) = Empty Then arr(i, 1) = arr(i - 1, 1)
   
7.         s = arr(i, 1)
   
8.         If arr(i, 2) = "OEM_Exp" And arr(i, 5) > 0 Then
   
9.             If Not d.exists(s) Then
   
10.                 d(s) = Array(s, 1, arr(i, 5))
    
11.             Else
    
12.                 t = d(s)
    
13.                 t(1) = t(1) + 1
    
14.                 t(2) = t(2) + arr(i, 5)
    
15.                 d(s) = t
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     [h4:j100] = ""
    
20.     [h4].Resize(d.Count, 3) = Application.Rept(d.Items, 1)
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

hyzjb12

ykcbf1100 发表于 2023-12-30 18:29
附件供参考。。。

给你点赞，可以使用，谢谢