请问这效果怎么实现

lin7516 · 发表于 2024-3-7 09:05

本帖最后由 lin7516 于 2024-3-7 09:05 编辑

我想实现表格里的效果，求各位大神帮帮忙！

无聊的黑猫 · 发表于 2024-3-7 09:55

lin7516 · 发表于 2024-3-7 11:00

无聊的黑猫发表于 2024-3-7 09:55

谢谢，非常完美。

xd3210 · 发表于 2024-3-8 10:55

受again123456大侠指点的启发，试着写了个，供参考！
function test(){
let arr=Range("a1").CurrentRegion.Value2.slice(1);
let obj=arr.reduce((p,v)=>(p[[v[0],v[1],v[2]]]??=0,p[[v[0],v[1],v[2]]] +=v[3],p),{});
let key=Object.keys(obj);
let brr=key.map(v=>[...v.split(','),obj[v]]);
Range("g20").Resize(brr.length,brr[0].length).Value2=brr;
}

lin7516 · 发表于 2024-3-8 17:12

xd3210 发表于 2024-3-8 10:55
受again123456大侠指点的启发，试着写了个，供参考！
function test(){
let arr=Range("a1").CurrentReg ...

你这运行出错，在两个？？,去掉这两个结果又不对。

xd3210 · 发表于 2024-3-8 17:43

本帖最后由 xd3210 于 2024-3-8 17:46 编辑

lin7516 发表于 2024-3-8 17:12
你这运行出错，在两个？？,去掉这两个结果又不对。

函数运行时可能取了其他工作簿的数据，建议把其它工作簿关掉试下，我加Console.log语句，能得到正确的数据

Again123456 · 发表于 2024-3-9 08:36

lin7516 发表于 2024-3-8 17:12
你这运行出错，在两个？？,去掉这两个结果又不对。

专业版不支持，用个人版

今铭昔 · 发表于 2024-3-9 14:29

xd3210 · 发表于 2024-3-9 21:45

Again123456 发表于 2024-3-9 08:36
专业版不支持，用个人版

感谢多次指点！

xd3210 · 发表于 2024-3-9 21:46

今铭昔发表于 2024-3-9 14:29

感谢指点！！

		自动登录	找回密码
密码			免费注册

[求助] 请问这效果怎么实现

评分

评分