VBA多条件求和代码修改

yangqianming

一江春水1688 发表于 2024-5-25 13:24
既然发在JSA板块，那就拿 jsa 练练手。如果第3列【类型】不确定，随时可增减，代码如下：

要把数量也显示出来，怎么弄？也就是每个类型下面都显示数量，金额，类似透视表那种结构可以吗？

一江春水1688

yangqianming 发表于 2024-5-25 16:24
要把数量也显示出来，怎么弄？也就是每个类型下面都显示数量，金额，类似透视表那种结构可以吗？

请参考：

1. //Wps Office 之 JSA 代码
   
2. //第3列【类型】不确定，可随时增减
   
3. function 分类汇总1(){
   
4.     let arr = Range("a2").CurrentRegion.Value2.slice(1);
   
5.     //分析【类型】中有哪些类别，存入keyArr数组
   
6.     let keyArr = Object.values(arr.reduce((acc, x) => (acc[x[2]] = x[2], acc), {}));
   
7.     //分类汇总保存至 arr 数组
   
8.     //[a, b, c, d, , f]表示原数据6个列，使用时略过了 e 列
   
9.     arr = arr.reduce((acc, [a, b, c, d, , f]) =>
   
10.         //根据C列对d列和f列进行筛选
    
11.         (acc.push([a, b, ...keyArr.map(y => [(c == y) ? d : null, (c == y) ? f : null]).flat()]), acc)
    
12.         //处理列名
    
13.         , [["日期", "品名", ...keyArr.map(x => [x+'.数量', x+'.金额']).flat()]]);
    
14.     Range("A13").Resize(arr.length, arr[0].length).Value2 = arr;
    
15. }

复制代码

一江春水1688

yangqianming 发表于 2024-5-25 16:24
要把数量也显示出来，怎么弄？也就是每个类型下面都显示数量，金额，类似透视表那种结构可以吗？

可以，代码还在审核中。。。

yangqianming

一江春水1688 发表于 2024-5-25 21:15
请参考：

厉害！
加个库存，在最后汇总一下就高级了！可以写吗？

一江春水1688

yangqianming  2024-5-26 08:09
厉害！
加个库存，在最后汇总一下就高级了！可以写吗？

另外开个帖子吧并附上原始数据和具体要求