怎么从表1变到表3,有没有高效的代码呢？

excel.x

怎么从表1到表3呢？数据量比较大，只抽取了部分内容，有没有什么高效的办法呢？发错板块了，用vba解决。

m_n_j001

第一次用jsa回帖：
function test(){
        var i=Cells(Rows.Count,'h').End(xlUp).Row;       
        var ar1=Range("h7:k" + i).Value2;
        var d={};
        var r=-1;
        for(var i=0;i<ar1.length;i++){
                if(ar1[i][0] in d){
                        ar1[d[ar1[i][0]]][2]+=','+ar1[i][2];
                }else{                       
                        d[ar1[i][0]]=++r;
                        for(let j=0;j<4;j++){
                                ar1[r][j]=ar1[i][j];
                        }
                }
        }
        Range("w10").Resize(r+1,4).Value2=ar1;       
}

excel.x

m_n_j001 发表于 2022-3-16 20:24
第一次用jsa回帖：
function test(){
        var i=Cells(Rows.Count,'h').End(xlUp).Row;       

多谢，这是js啊，怎么用vba写呢

lyfegf

function test(){
        let arr=Range("h7:k18").Value2 //数据装数组
        let key=""
        let dic={}
        let n=0,m
        let arrjg=[]
        for (let i=0;i<arr.length;i++){//循环数组
                //前2个和最后1个当成一个关键字
                key = arr[i][0] +','+ arr[i][1] +','+ arr[i][3]
                if (key in dic==false){                //看下关键字不在对象里       
                        dic[key]=n  //用关键字记录下结果数组的行号
                        //把数据这行数据添加到结果数组里
                        arrjg.push([arr[i][0],arr[i][1],arr[i][2],arr[i][3]])
                        n++                //自加1
                }
                else{ //这就表示结果数组里已经有数据了
                        m=dic[key]  //m记录下结果数组的行
                        //结果数组的第三个不段拼接
                        arrjg[m][2]=arrjg[m][2] + ',' + arr[i][2]
                }
               
        }
        //返回单元格
        Range("s1").Resize(arrjg.length,arrjg[0].length).Value2=arrjg
}

scnc001

excel.x 发表于 2022-3-17 09:58
多谢，这是js啊，怎么用vba写呢

那你就发错版块了。。。