VBA多条件求和代码修改

LIUZHU

也是JSA，热心参与下

LIUZHU

JSA代码，参考下

LIUZHU

附件，WPS测试，谢谢

LWY003

LIUZHU 发表于 2024-5-21 11:03
附件，WPS测试，谢谢

谢谢老师的技术指导与分享！非常感谢！

LWY003

LIUZHU 发表于 2024-5-21 11:03
附件，WPS测试，谢谢

老师的，您的代码在office 里面出点问题，附图片给您看看

LIUZHU

LWY003 发表于 2024-5-23 20:19
老师的，您的代码在office 里面出点问题，附图片给您看看

需要WPS软件测试

Again123456

SQL查询.7z (16.88 KB, 下载次数: 0)

2024-5-24 15:58 上传

点击文件名下载附件

不知道类型会不会增加？

LWY003

Again123456 发表于 2024-5-24 09:55
不知道类型会不会增加？

老师，晚上好，这个会增加的，我好像是发错地方，才让老师们写另外的代码，实在抱歉，我本意是发VBA的，对不起啊，老师

LWY003

LIUZHU 发表于 2024-5-23 21:20
需要WPS软件测试

好的，非常感谢老师的技术支持与分享

一江春水1688

既然发在JSA板块，那就拿 jsa 练练手。如果第3列【类型】不确定，随时可增减，代码如下：

1. //Wps Office 之 JSA 代码
   
2. //第3列【类型】不确定，可随时增减
   
3. function 分类汇总(){
   
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.         arr = arr.reduce((acc, [a, b, c, , , f]) =>
   
9.                 (acc.push([a, b, ...keyArr.map(y => f*(c == y))]), acc)
   
10.                 , [["日期", "品名", ...keyArr]]);
    
11.         Range("A13").Resize(arr.length, arr[0].length).Value2 = arr;
    
12. }

复制代码