如何按多个类别汇总个数，提示for each 控件变量必须为变体或对象，求大神指点

xinglang0607

学着写代码来实现，要把原始数据拆分成三列显示，原始数据在一列中包含有名称和码数，名称规则不定，但与码数中间有空格，想根据同名称和同码数计算个数，分别用名称，码数，个数分开三列显示，学着写了个代码，但是代码提示for each 控件变量必须为变体或对象，Microsoft Scripting Runtime也已经启用，不知道是哪里的问题，请老师指点！

^星^

按多个类别汇总个数.zip (17.98 KB, 下载次数: 8)

2024-3-25 13:34 上传

点击文件名下载附件

沈默00

怎么像AI写的一样，你这样拆出来的结果好像也不对，，

ykcbf1100

附件从参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.25
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 1)
   
8.     End With
   
9.     ReDim brr(1 To UBound(arr), 1 To 3)
   
10.     For i = 1 To UBound(arr)
    
11.         b = Split(arr(i, 1))
    
12.         s = b(0) & "|" & b(1)
    
13.         d(s) = d(s) + 1
    
14.     Next
    
15.     For Each k In d.Keys
    
16.         m = m + 1
    
17.         brr(m, 1) = Split(k, "|")(0)
    
18.         brr(m, 2) = Split(k, "|")(1)
    
19.         brr(m, 3) = d(k)
    
20.     Next
    
21.     With Sheets("Sheet2")
    
22.         .UsedRange.Offset(1) = ""
    
23.         .[a1].Resize(1, 3) = Array("名称", "码数", "数量")
    
24.         .[a2].Resize(m, 3) = brr
    
25.         .[a1].Resize(m + 1, 3).Borders.LineStyle = 1
    
26.     End With
    
27.     Set d = Nothing
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

ykcbf1100

沈默00 发表于 2024-3-25 13:52
怎么像AI写的一样，你这样拆出来的结果好像也不对，，

不是象，就是AI写的

cnmlgb9998

用PQ不香么？？？？？？？？？？？？？？

tanglf188

猜一下

LIUZHU

cnmlgb9998 发表于 2024-3-25 14:06
用PQ不香么？？？？？？？？？？？？？？

PQ是不错，不过终究是属于微软的产品，换了Windows系统就不行了

LIUZHU

参与下，JSA

1. function 拆分三列(){
   
2.         let arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2;
   
3.         let obj=arr.reduce((dic,[x])=>((dic[x]=dic[x] || [...x.split(" "),0])[2]++,dic),{});
   
4.         let res=[["名称","码数","数量"]].concat(Object.values(obj));
   
5.         Sheets.Item("拆分结果").Range("a1").Resize(res.length,res[0].length).Value2=res;
   
6. }

复制代码