按关键字分类汇总

LIUZHU

JSA代码，参考下

1. function 分类汇总(){
   
2.         let regex=new RegExp(Sheets.Item("分包人").Range("a1").CurrentRegion.Value2.slice(1).map(([x])=>x).join("|"));
   
3.         let obj=Sheets.Item("表一").Range("a1").CurrentRegion.Value2.slice(2).reduce((dic,x)=>{
   
4.                 if (!regex.test(x[1])) return dic;
   
5.                 x[2]=x[1].match(regex)[0];
   
6.                 let temp=dic[x[2]]=dic[x[2]] || [[,x[2],0,,,,,]];
   
7.                 temp.splice(temp.length-1,0,x.slice(1))
   
8.                 temp[temp.length-1][2]+=x[3];
   
9.                 return dic;
   
10.         },{});
    
11.         let res=Object.values(obj).flat();
    
12.         Sheets.Item("分类汇总表").Activate();
    
13.         Range("2:" + Math.max(2,ActiveSheet.UsedRange.Rows.Count)).ClearContents();
    
14.         Range("b2").Resize(res.length,res[0].length).Value2=res;
    
15. }

复制代码

LIUZHU

附件，需要用WPS测试

蓝桥玄霜

汇总的例子：

李伟杰123

yanglinzi 发表于 2024-5-13 10:37
参与一下。。

可以

飞天篮球猪

李伟杰123

yanglinzi 发表于 2024-5-13 10:37
参与一下。。

合同价、审核价能不能也一起汇总一下

yanglinzi

李伟杰123 发表于 2024-10-28 14:43
合同价、审核价能不能也一起汇总一下

你当时的《表一》没有数据，把数据填上，就可以汇总的

李伟杰123

yanglinzi 发表于 2024-10-28 16:57
你当时的《表一》没有数据，把数据填上，就可以汇总的

试了，不行

李伟杰123

yanglinzi 发表于 2024-10-28 16:57
你当时的《表一》没有数据，把数据填上，就可以汇总的

数据填上也不行，应该是程序还需要加上一点

李伟杰123

yanglinzi 发表于 2024-10-28 16:57
你当时的《表一》没有数据，把数据填上，就可以汇总的

能行，只是后面的审核价、结算价少个求和