怎样用字典取多列，并让相同名字的各列的值相加？

wang-way

1. function subTotal1()//分类汇总一例
   
2. {
   
3.         let sht=ThisWorkbook.Worksheets.Item(1);
   
4.         let ar=sht.Cells(1,1).CurrentRegion.Value2;
   
5.         let d=new Map();
   
6.         for(let r of ar)
   
7.         {
   
8.                 let k=r[1];
   
9.                 if(d.has(k)){
   
10.                         for(let j=2;j<=4;j++)
    
11.                         {
    
12.                                 d.get(k)[j]+=r[j];
    
13.                         }
    
14.                 }
    
15.                 else{
    
16.                         d.set(k,r);       
    
17.                 }
    
18.         }
    
19.         let lst=[];
    
20.         d.forEach((v,k)=>{lst.push(v)});
    
21.         sht.Cells(20,1).Resize(lst.length,lst[0].length).Value2=lst;
    
22. }

复制代码

maers123

cyq4896 发表于 2024-5-6 08:43
修改了一下

    For i = 1 To UBound(arr)
        d(arr(i, 2)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5))
        Debug.Print (Join(d(arr(i, 2)), "-"))
    Next
求指教啊，实在不明白，这个咋实现的同一个key，item的数组值相加的？

maers123

看代码就是，给同一个key的item重新赋值一个数组，结果却成了俩数组的值相加

maers123

ykcbf1100 发表于 2024-5-6 07:53
附件供参考。。。

上面的回复弄错啦，是你的杰作。。恳请解释下哈

maers123

抱歉，弄乌龙了，原来是俩宏。。抱歉抱歉

cyq4896

maers123 发表于 2024-5-6 09:49
For i = 1 To UBound(arr)
        d(arr(i, 2)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, ...

先用t = d(arr(i, 2))取出再把重复的值累加
        d(arr(i, 2)) = Array(arr(i, 1), arr(i, 2), t(2) + arr(i, 3), t(3) + arr(i, 4), t(4) + arr(i, 5))

grf1973

练习一下。。。用WPS打开。

wang-way

grf1973 发表于 2024-5-6 11:26
练习一下。。。用WPS打开。

请教一下  空赋值  后面(res.push(),i++) 后面的  括号 和 i++这是啥语法

saghj

wang-way

wang-way 发表于 2024-5-6 12:04
请教一下  空赋值  后面(res.push(),i++) 后面的  括号 和 i++这是啥语法

终于弄明白了。

1. d[x[1]]??=(res.push(),i++)的意思

复制代码

当关键字第一次出现的时候？？=左侧为null，先把初始值push到数组里，再记录下行号。