JSA 分类汇总（数组与字典测试）

Again123456

字典测试.7z (59 Bytes, 下载次数: 71)

2022-3-10 21:29 上传

点击文件名下载附件
数组字典测试

function test(){
        var r=Cells(Cells.Rows.Count,1).End(xlUp).Row;
        var c=Cells(1,Cells.Columns.Count).End(xlToLeft).Column;
        var arr=Range(Cells(2,1),Cells(r,c)).Value2;
        Cells(3,c+1).Resize(r,c).ClearContents();
        var dic1={};//定义重量字典
        var dic2={};//定义金额字典
        for (var i=0;i<arr.length;i++){
                if(dic1[arr[0]]==undefined){dic1[arr[0]]=arr[1];}
                else{dic1[arr[0]]=dic1[arr[0]]+arr[1];}
                }
               
        for (var i=0;i<arr.length;i++){
                if(dic2[arr[0]]==undefined){dic2[arr[0]]=arr[2];}
                else{dic2[arr[0]]=dic2[arr[0]]+arr[2];}
                }
        var brr=new Array();//定义字典组合数组
        var i=0;
        for (key in dic1){
                brr=new Array();
                brr[0]=key;
                brr[1]=dic1[key];
                brr[2]=dic2[key];
                i++;
        }
        Cells(3,c+1).Resize(brr.length,brr[0].length).Value2=brr;
}

LIUZHU

群主已经给你最佳答案了，怎样利用箭头函数来写。

LIUZHU

用map对象试试

LIUZHU

福建有问题，不能下载

Again123456

LIUZHU 发表于 2022-3-11 15:04
用map对象试试

从来没接触JS，用VBA思路写的。初步了解了一下JS，用MAP的话写法如下：
function test(){
        var arr=Range("A1:B7").Value2;
        var m=new Map();
        arr.forEach(ar=>m.set(ar[0],m.get(ar[0])==undefined?ar[1]:m.get(ar[0])+ar[1]))
        m.forEach((v,k)=>Console.log(k+"--"+v));
}