|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
JSA代码,适合WPS
- function 客户统计(){
- const arr=Sheets.Item("今年").Range("a1").CurrentRegion.Value2;
- const [sy,by]=["c2","g2"].map(x=>Sheets.Item("数据提取").Range(x).Value2)
- const wf=WorksheetFunction, dic={};
- Sheets.Item("数据提取").Activate();
- [[sy,"b5"],[by,"f5"]].forEach(([a,b])=>{
- let obj=arr.slice(2).reduce((obj,x)=>{
- let month=wf.Text(x[1],"m月份");
- if (month!=a) return obj;
- let temp=obj[x[0]]=obj[x[0]] || [x[0],0,0];
- temp[1]++, temp[2]+=x[7];
- (dic[x[0]]=dic[x[0]] || [x[0]]).push(month);
- return obj;
- },{});
- let res=Object.values(obj);
- Range(b).Resize(res.length, res[0].length).Value2=res;
- });
- const kh=Object.values(dic); //提取所有客户
- [[by,,"j5"],[sy,,"l5"]].forEach(([a,b,c])=>{
- let temp=kh.reduce((temp,[kehu,m,n])=>(a==m && b==n?temp.push([kehu]):null,temp),[]);
- Range(c).Resize(temp.length,1).Value2=temp;
- })
- }
复制代码 |
|