求助：JSA多列数据找重复次数并汇总

金牌1

求助高手老师解答：JSA多列数据找重复次数并汇总

kkf5560

供参考.......................

金牌1

kkf5560 发表于 2024-9-25 08:39
供参考.......................

执行快！！！就是看不懂。谢谢：kkf5560老师！给予解答，能再降序排列就完美了。

hmy16888

我想以第5行开始，每行向上做数据比较，发现有1行完全重复的，在A列标记出来。

hmy16888

hmy16888 发表于 2024-9-26 22:49
我想以第5行开始，每行向上做数据比较，发现有1行完全重复的，在A列标记出来。

以前我用VBA是可以的，现在使用国产系统，一定要我用JS宏，我搞不了，谢谢！

sdytsxd991122

金牌1

sdytsxd991122 发表于 2024-9-29 12:48

非常感谢老师的解答！

sunya_0529

你的数据不多，速度快慢能分得出来吗？

1. function 取重复项并汇总() {
   
2.     const st = Date.now();
   
3.     const db = Range('B1').CurrentRegion();
   
4.     const map = new Map();
   
5.     for (let j = 0; j < db[1].length; j += 3) {
   
6.         for (let i = 2; i < db.length; i++) {
   
7.             const [id, name, amount] = [0, 1, 2].map(n => db[i][j + n]);
   
8.             const key = `${String(id).padStart(3, 0)}|${name}`;
   
9.             if (id) {
   
10.                 if (!map.has(key)) map.set(key, [0, 0]);
    
11.                 map.get(key)[0]++;
    
12.                 map.get(key)[1] += amount;
    
13.             }
    
14.         }
    
15.     }
    
16.     const res = [...map].map(([k, v]) => [...k.split('|'), ...v]).sort((a, b) => a[0] - b[0]);
    
17.     res.unshift(['学号', '名字', '重复次数', '额汇总']);
    
18.     with (Range('AI1').Resize(res.length, res[0].length)) {
    
19.         CurrentRegion.ClearContents();
    
20.         Value2 = res;
    
21.     }
    
22.     alert(`统计完成，耗时【${(Date.now() - st) / 1000}】秒~`);
    
23. }

复制代码

金牌1

sunya_0529 发表于 2024-9-29 21:58
你的数据不多，速度快慢能分得出来吗？

祝老师国庆节快乐！！！感谢老师的解答。
如果重复项的数字都相同了，后面额汇总请按降序排序或者升序。
增加这几句话不能执行，是哪里的问题，再次麻烦老师给给予解答。
const dic = arr.reduce((dic, [a,b,c]) => (dic[c] ||= 0, dic[c]++, dic), {})
        arr.sort((a, b) => {
                if (a[2] == b[2]) return b[3] - a[3] || a[4] - b[4] 2再a[8]
    //return dic[b[2]] - dic[a[2]] || b[2].localeCompare(a[2])  
        })

sunya_0529

金牌1 发表于 2024-9-30 22:56
祝老师国庆节快乐！！！感谢老师的解答。
如果重复项的数字都相同了，后面额汇总请按降序排序或者升序。 ...

在下也是JSA的初学者，算是刚入门吧，不敢称老师，一起学习进步吧