|
楼主 |
发表于 2023-10-14 11:09
|
显示全部楼层
本帖最后由 lin7516 于 2023-10-14 11:16 编辑
谢谢,厉害了.如果在入库中间插几列该怎么写?
下面这样吗?可不可已去掉b.
function 汇总(){
const dic=Sheets("入库").Range("A1:E300").Value2.reduce((dic,[a,b,c,d])=>{
if(!dic.hasOwnProperty([a,d])){
dic[[a,d]]=c;
}
else{
dic[[a,d]]+=c;
}
return dic;
},{});
let sh=Sheets("查询");
let intRow=sh.Cells(Rows.Count,1).End(3).Row;
sh.Range("B2").Resize(intRow,1).ClearContents;
const arr=sh.Range("A1").CurrentRegion.Value2;
const res=arr.map((v)=> v[1]=dic[[v[0],v[2]]]);
sh.Range("B1").Resize(res.length,1).Value2=WorksheetFunction.Transpose(res);
}
|
|