求助：用VBA数组求出每种产品近期的消耗量

maliyanashi

有电复杂了， 学习学习

鄂龙蒙

1. Sub 统计B()  '统计(5-8)
   
2.     Dim ar, i, j, a, sa, sb
   
3.    [F2:F21] = Empty
   
4.     ar = Range("A1").CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.         a = Split(ar(i, 2), " ")
   
7.         s = ""
   
8.         For j = 0 To UBound(a)
   
9.             sa = Split(a(j), "_")
   
10.             sb = Split(a(j), "_")(0)
    
11.             If Val(sa(1)) >= 5 And Val(sa(1)) <= 8 Then
    
12.                 s = s & " " & sb & "_" & sa(1)
    
13.             End If
    
14.         Next
    
15.         Cells(i, 6) = s
    
16.     Next
    
17. End Sub

复制代码

鄂龙蒙

是不是这样：

求出每种产品近期的消耗量.rar (11.96 KB, 下载次数: 6)

2020-2-13 10:04 上传

点击文件名下载附件

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("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:b" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       brr = Split(arr(i, 2), " ")
    
11.       For j = 0 To UBound(brr)
    
12.         d(brr(j)) = d(brr(j)) + 1
    
13.       Next
    
14.     Next
    
15.     ss = ""
    
16.     For Each aa In d.keys
    
17.       If d(aa) >= 5 And d(aa) <= 8 Then
    
18.         ss = ss & Space(1) & aa
    
19.       End If
    
20.     Next
    
21.     .Range("d2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
22.     If ss <> "" Then
    
23.       .Range("h2") = Mid(ss, 2)
    
24.     End If
    
25.   End With
    
26. End Sub
    

复制代码

chxw68

数据比较规范，适合新手练习。

laojiu369

感谢鄂龙蒙、chxw68两位老师的帮助！
chxw68老师的代码完全符合我的要求，非常感谢！鄂龙蒙老师的代码没有把结果用空格连结放到一个单元格内，但也足以给我启示，感谢了！
祝大家安好。共同面对疫情！战胜病毒！中国必胜！

laojiu369

若要实现第二步要求，哪位老师还有更好更快的办法？

chxw68

修改好了。

laojiu369

chxw68 发表于 2020-2-14 10:31
修改好了。

感谢老师，用起来很好、很爽，900多行数据0.016秒，太感谢您了！
好人万事如意、一生平安！

laojiu369

chxw68 发表于 2020-2-14 10:31
修改好了。

老师您好：
       如果把产品名称中只保留数字序号，把前面的字母和下划线去掉，不在DE两列显示型号和数量，只在H2单元格显示符合要求的、以空格分隔的数字汇总，速度还能快一些吗？
       希望您能在百忙之中再出手相帮，我当万分感谢！