for each代码排错和思路优化，感谢各位大神

suixin0529

ooluckydog 发表于 2024-4-1 23:38
字典里装数组，方便写回单元格

感谢帮助，第一次知道原来变量可以用汉字表示……

非常感谢，这种表示方法让人一目了然，大神费心了

LIUZHU

不知道是不是这个效果？

LIUZHU

JSA代码，供参考

1. function 汇总(){
   
2.         let bt=Range("a1").CurrentRegion.Value2[0];
   
3.         Workbooks.Open(`${ThisWorkbook.Path}\\源文件.xls`);
   
4.         let arr=Range("a1").CurrentRegion.Value2;
   
5.         ActiveWorkbook.Close(false);
   
6.         bt=[...new Set([...bt,...arr[0]])];                //更新表头
   
7.         let res=arr.slice(1).reduce((res,x)=>{
   
8.                 let temp=arr[0].reduce((temp,y,i)=>(temp[bt.indexOf(y)]=x[i],temp),[]);
   
9.                 return (res.push(temp),res);
   
10.         },[]);
    
11.         let rng=Range("a"+ Rows.Count).End(xlUp).Offset(1,0);
    
12.         rng.Resize(res.length,bt.length).Value2=res;
    
13.         Range("a1").Resize(1,bt.length).Value2=bt;
    
14. }

复制代码

LIUZHU

最新版的WPS测试即可

半百

suixin0529 发表于 2024-4-2 08:15
感谢各位大神帮助，字典、SQL这些我还不会，先留下慢慢学习

另外还是想请各位大神们帮忙排错

suixin0529

LIUZHU 发表于 2024-4-2 09:51
JSA代码，供参考

感谢帮助，留下学习了

suixin0529

半百 发表于 2024-4-2 14:36

解惑了，感谢指点！