一维转二维汇总统计

hyhsql

草爷老师是有点问题， 希望有时间能给改一下，自己不会修改。谢谢！

ykcbf1100

hyhsql 发表于 2024-10-9 10:00
草爷老师是有点问题， 希望有时间能给改一下，自己不会修改。谢谢！

还想我来改一下吗？我抽时间看一下吧。

ykcbf1100

pfcszp 发表于 2024-10-8 16:52
老师，我看了一下数据这个里面有一个分包商对应一个项目下的多个合同没有统计出来。

改了，你再看一下。

hyhsql

谢谢草爷的耐心帮助。

blackttea1

学习消化中

yangqianming

lizhipei78 发表于 2024-10-8 18:42
今天无聊琢磨了一下，搞定了

1. function huizong(){
   
2.         let res=[hj,xm,ny]=[['合计',null,null],['合同编号','经办人','结算分包商'],[null,null,null]];//定义表头和合计行
   
3.         let zj=[[0],['总计'],['总计']];//定义总计变量
   
4.         let arr=Sheets('基础数据').Range('a1').CurrentRegion.Value().slice(1);       
   
5.         arr.forEach(([a,b,c,d,e,f])=>{
   
6.                 k=WorksheetFunction.Text(e,'yyyy年m月');
   
7.                 j=ny[a+e]??=(hj.push(0),xm.push(a),ny.push(k)-1);
   
8.                 i=xm[b+c+d]??=(zj.push(0),res.push([b,c,d])-1);
   
9.                 res[i][j]??=0;res[i][j]+=f;hj[j]+=f;
   
10.                 zj[i][0]+=f;zj[0][0]+=f;
    
11.         })
    
12.         temp=res.shift();res.push(temp);
    
13.         temp=zj.shift();zj.push(temp);
    
14.         Sheets('添加列合计行总计').Activate();
    
15.         Range('a1').CurrentRegion.Clear();
    
16.         Range('a1').Resize(res.length,res[0].length).Value2=res;
    
17.         Cells(1,res[0].length+1).Resize(res.length,1).Value2=zj;
    
18.         Sheets('添加列合计行总计').Columns.AutoFit();
    
19.         MsgBox('OK');
    
20. }

复制代码

行总计只有最后一个值，每行并未统计出来，能看看吗？谢谢！

lizhipei78

yangqianming 发表于 2024-10-13 10:01
行总计只有最后一个值，每行并未统计出来，能看看吗？谢谢！

这么勤力呀，我看了也不清楚问题在哪里，我这里是没有问题的，你下载运行看一下
一维转置二维统计.rar (30.82 KB, 下载次数: 9)

2024-10-13 22:49 上传

点击文件名下载附件

yangqianming

lizhipei78 发表于 2024-10-7 13:07
我是小白，基本上都不懂得

您好！如果有时间帮忙看看我这个按照您的写法怎么就不对了呢？那些地方我理解的不对？请改一下我在学习一下好吗？sheet2，左边是透视表模拟的结果。
请教.rar (63.97 KB, 下载次数: 1)

2024-10-19 16:24 上传

点击文件名下载附件

yangqianming

yangqianming 发表于 2024-10-19 16:24
您好！如果有时间帮忙看看我这个按照您的写法怎么就不对了呢？那些地方我理解的不对？请改一下我在学习一 ...

已经解决好了

1. function 两行表头(){
   
2.         let res=[hj,pingming,date]=[['合计'],['品名'],['时间']];zj=[[0],['总计'],['总计']];
   
3.         let arr=Range('a1').CurrentRegion().slice(1);
   
4.         arr.forEach(([sj,lb,pm,sl])=>{
   
5.                 k=WorksheetFunction.Text(sj,'yyyy-mm-dd');
   
6.                 col=date[pm+lb]??=(hj.push(0),pingming.push(lb),date.push(pm)-1);
   
7.                 row=date[sj]??=(zj.push([0]),res.push([k])-1);
   
8.                 res[row][col]??=0;res[row][col]+=sl;hj[col]+=sl;
   
9.                 zj[row][0]+=sl;zj[0][0]+=sl
   
10.         });
    
11.         console.log(JSON.stringify(res));
    
12.         temp=res.shift();res.push(temp);
    
13.         temp=zj.shift();zj.push(temp);
    
14.         Range('m2').Resize(res.length,res[0].length).Value2=res;
    
15.         Cells(2,res[0].length+13).Resize(res.length,1).Value2=zj;
    
16.        
    
17. }

复制代码

hyhsql

ykcbf1100 发表于 2024-10-9 10:10
改了，你再看一下。

ykcbf1100老师还需麻烦您给看看如何修改，当数据多时没有按月排序。