如何通过流水账，得到这种统计表格

pingerfy

edwin11891 发表于 2024-11-7 22:50
再来个超长火车，基本实现楼主的想法。目前只是实现目标，没有优化。

哇，学到了  第一次见这么长的火车

pingerfy

mjm04 发表于 2024-11-7 23:44
我是进来看各位老师的大砍刀的~~~~~~

=======================

论坛真的是藏龙卧虎，大佬们太厉害了

pingerfy

lanjian229 发表于 2024-11-8 09:42
这个要么vba要么开火车，最好做表的时候做成你最终的表，第一张由目标表生成

记录的话，应该还是第一个表方便吧。反向生成可能也会比较麻烦。
另外主要是怕在目标表记录的话，容易出错。

edwin11891

pingerfy 发表于 2024-11-8 10:42
好厉害，这样做好后，重复的单元格可以合并吗？主要是为了方便看

都是函数公式，没有采用透视表。
项目名称函数不能合并，要合并单元格只能VBA。

我要成为专家

搞不懂为啥要用这种呈现方式，流水账属于非常好的一维表结构，直接行列透视就可以了呗，公司名称直接一列显示也可以达汇总查看的目的吧。你这样搞，麻烦不说，数据分析什么的也不方便。以上只是猜测，下面属于透视的公式版，更建议用手工操作

1. =PIVOTBY(HSTACK('1.“流水账”'!B1:B29,'1.“流水账”'!A1:A29,'1.“流水账”'!D1:D29),HSTACK('1.“流水账”'!C1:C29,'1.“流水账”'!E1:E29),'1.“流水账”'!F1:F29,SUM)

复制代码

pingerfy

我要成为专家 发表于 2024-11-8 11:40
搞不懂为啥要用这种呈现方式，流水账属于非常好的一维表结构，直接行列透视就可以了呗，公司名称直接一列显 ...

这个方式也是自己琢磨的，可能不成熟。如果您有更好的方式，可以发一下表格文件吗

ericxzhou

pingerfy 发表于 2024-11-8 10:41
这个是需要安装python吧，这个做好后，每次目标表会自动更新吗？还是需要重新运行一次？

源表更新需要重新运行。

pingerfy

ericxzhou 发表于 2024-11-8 12:38
源表更新需要重新运行。

有没有什么方式可以同步更新呢？

mjm04

pingerfy 发表于 2024-11-8 13:52
有没有什么方式可以同步更新呢？

M365 自带PQ，用那个搞~~~

以后数据更新，点点刷新就行了

edwin11891

优化了一下，火车减少了几个车皮：

1. =LET(Xa,A2:A29,Xb,B2:B29,Xc,C2:C29,Xd,D2:D29,Xe,E2:E29,Xf,F2:F29,t,DROP(PIVOTBY(HSTACK(HSTACK(MATCH(Xb&Xd,Xb&Xd,),Xb&Xd),Xb,Xd,Xa,Xc),HSTACK(HSTACK(MATCH(Xc,{"总包","分包","采购"},),Xc),HSTACK(MATCH(Xe,{"公司名称","合同金额","开票","收款"},),Xe),Xe),1*Xf,SUM,0,2,1,0),,2),Res,VSTACK(CHOOSEROWS(t,{2,4}),DROP(t,5)),SI,VSTACK("项目",DROP(TAKE(Res,,1),1)),b,CHOOSECOLS(Res,2),sDay,VSTACK("日期",DROP(CHOOSECOLS(Res,3),1)),sType,CHOOSECOLS(Res,4),c,CHOOSECOLS(Res,{5,6,7}),d,CHOOSECOLS(Res,{8,9,10}),e,CHOOSECOLS(Res,{11,12,13}),fy,LAMBDA(XX,VSTACK("XX","公司名称",DROP(IF(sType=XX,b,""),2))),Sz,fy("总包"),Sf,fy("分包"),Sc,fy("采购"),sSI,MAP(SEQUENCE(ROWS(SI)),LAMBDA(x,IF(x<3,INDEX(SI,x),IF(x=ROWS(SI),"汇总",IF(INDEX(SI,x)="",INDEX(SI,x-1),INDEX(SI,x)))))),fx,LAMBDA(XX,MAP(SEQUENCE(ROWS(XX)),LAMBDA(x,IF(x<4,INDEX(XX,x),IF(INDEX(XX,x)<>"",INDEX(XX,x),IF(INDEX(XX,x-1)<>"",INDEX(XX,x-1)&"_小计","")))))),sFinal,HSTACK(sSI,sDay,fx(Sz),c,fx(Sf),d,fx(Sc),e),sFinal)

复制代码