模拟透视表列错位及总计列问题

yangqianming

xd3210 发表于 2024-10-24 18:41
如果源数据日期年份月份不连续，如何保持按年月份顺序排列？建议继续改进

这是个问题，您给完善一下呗！

yangqianming

xd3210 发表于 2024-10-24 18:41
如果源数据日期年份月份不连续，如何保持按年月份顺序排列？建议继续改进

1. function erlieshuju(){
   
2.         let res=[hj,year,month,diqu]=[['合计'],['年'],['月'],['地区']];zj=[[0,0],['数量总计','金额总计'],[null,null],[null,null]];
   
3.         let arr=Sheets('源数据').Range('a1').CurrentRegion().slice(1);
   
4.         arr.sort((a,b)=>(a[1].split('年')[0]+a[2].split('月')[0])-(b[1].split('年')[0]+b[2].split('月')[0]));
   
5.         arr.forEach(([a,b,c,d,e])=>{
   
6.                 col=month[b+c]??=(hj.push(0,0),year.push(b,b),month.push(c,c),diqu.push('数量','金额')-1);
   
7.                 row=diqu[a]??=(zj.push([0,0]),res.push([a])-1);
   
8.                 res[row][col-1]??=0;res[row][col-1]+=d;res[row][col]??=0;res[row][col]+=e;hj[col-1]+=d;hj[col]+=e;
   
9.                 zj[row][0]+=d;zj[row][1]+=e;zj[0][0]+=d;zj[0][1]+=e;
   
10.         })
    
11.         temp=res.shift();res.push(temp);
    
12.         temp=zj.shift(),zj.push(temp)
    
13.         Sheets('转表').Range('a11').Resize(res.length,res[0].length).Value2=res;
    
14.         Sheets('转表').Cells(11,res[0].length+1).Resize(res.length,2).Value2=zj;
    
15. }
    

复制代码

xd3210

yangqianming 发表于 2024-10-25 15:49

谢谢分享！