求助 BOM替代物料整理

tewf1968hen

单位有如下大量类似表格数据  想请论坛各位大佬 帮忙出出注意  如何用VBA 实现整理后结果整理前数据




手工整理后效果如图所示




单位有大量类似整理前表格数据  想请论坛各位大佬 帮忙出出注意  如何用VBA 实现整理后结果。

micch

LIUZHU

这个效果，弄起来还是有点麻烦的

LIUZHU

JS代码，供参考

1. function BOM物料整理(){
   
2.         const arr=Sheets.Item("整理前").Range("a1").CurrentRegion.Value2;
   
3.         let key,temp;
   
4.         let obj=arr.slice(1).reduce((obj,[a,b,c])=>{
   
5.                 if (a!=null){
   
6.                         key=[a,b,c].join();
   
7.                         obj[key]=[[a,b,c]];
   
8.                 }else{
   
9.                         let temp=obj[key];
   
10.                         temp.push(key.split(",").concat([b,c]));
    
11.                         if (temp[0].length==3) temp.shift();                //弹出第一个元素
    
12.                 }
    
13.                 return obj;
    
14.         },{});
    
15.         let res=[arr[0]].concat(Object.values(obj).flat());
    
16.         Sheets.Item("整理后").Activate();
    
17.         Range("a1").Resize(res.length,5).Value2=res;
    
18. }

复制代码

LIUZHU

附件在此，请用WPS测试

ooluckydog

cnmlgb9998

还要什么VBA？ PQ解决方案，又快又省。。。。。。。。。。。。

tewf1968hen

micch 发表于 2024-5-21 22:32

谢谢  能不能提供，写好代码发我一下

tewf1968hen

cnmlgb9998 发表于 2024-5-22 08:44
还要什么VBA？ PQ解决方案，又快又省。。。。。。。。。。。。

万分感谢 ！！

tewf1968hen

ooluckydog 发表于 2024-5-22 00:13

万分感谢！！！