如何用VBA代码，实现一维表转换成二维表

星梦月缘

标记==========以上问题已解决，谢谢各位老师，由于我用的的office，所以并不支持JS  ，同样也对老师写的JS代码标识感谢。

LIUZHU

JS的代码还可以精简点

1. function 转换2(){
   
2.         const arr=Range("a1").CurrentRegion.Value2.slice(1);
   
3.         let [obj1,obj2]=[0,1].map(n=>arr.reduce((obj,x,i)=>(obj[x[n]]=obj[x[n]] || Object.keys(obj).length+1, obj),{}));
   
4.         let res=[["区域",...Object.keys(obj1)]].concat(Object.keys(obj2).map(x=>[x]));
   
5.         arr.forEach(([a,b,c])=>res[obj2[b]][obj1[a]]=(res[obj2[b]][obj1[a]] || 0) + c);
   
6.         Range("h1").Resize(res.length, res[0].length).Value2=res;
   
7.         Range("h1").CurrentRegion.Borders.LineStyle=1;
   
8. }

复制代码

LIUZHU

精简的代码，往往不怎么好读