|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
能抄一遍最好
function 汇总(){
console.clear();
let arr_sh=['1号','2号','3号','4号'];
let obj=arr_sh.reduce((p,v)=>{
let arr=Sheets(v).Range("a1").CurrentRegion.Value2;
arr.map((e)=>{
if(/^D/.test(e[1])){
let key=e[0]+e[1];
p[key]??=[0,0];
e[7]??=0;
e[8]??=0;
// p[key]=[p[key][0]+e[7],p[key][1]+e[8]];
p[key][0] +=e[7];
p[key][1] +=e[8];
}
})
return p;
},{})
arr=Sheets('汇总').Range("a1").CurrentRegion.Value2;
arr.map((v)=>{
if(/^D/.test(v[1])){
v[7]=0;//清零
v[8]=0;//清零
v[7]=obj[v[0]+v[1]][0];
v[8]=obj[v[0]+v[1]][1];
}
})
Sheets('汇总').Range("a1").Resize(arr.length,arr[3].length).Value2=arr;
} |
|