WPS请问如何将所有的表单中的信息用VBA合并在一起？

流水年华zibo

LIUZHU 发表于 2024-6-15 10:32
如下的附件？附件在哪里？

附近请看下一楼，谢谢您

LIUZHU

流水年华zibo 发表于 2024-6-15 11:50
附近请看下一楼，谢谢您

看这个附件的意思是，只提取产品的数量，金额不需要汇总了？

LIUZHU

演示效果，如动图

LIUZHU

JS代码，简单了点

1. function 数据汇总(){
   
2.     let res=[...Sheets].reduce((res,sh)=>{
   
3.         if (sh.Range("a7").Value2!="编号") return res;
   
4.         let [kh,dh,rq]=["b5","f1","f4"].map(x=>sh.Range(x).Value2.split("·").reverse()[0]);                //客户、单号、日期
   
5.         let [r1,r2]=[["编号",1],["备  注:",-1]].map(([a,b])=>sh.Cells.Find(a).Row + b);
   
6.         sh.Range(`a${r1}:g${r2}`).Value2.forEach(function(x){
   
7.             if (x[5]==null) return;
   
8.             res.push([rq,dh,kh,x[0],x[2],x[5].match(this)[0]]);
   
9.         },/\d+(\.\d+)?/);
   
10.         return res;
    
11.     },[["日期","订单号","客户名","产品编号","产品名称","产品数量"]]);
    
12.     Sheets.Item("要求").Range("a3").Resize(res.length, res[0].length).Value2=res;
    
13. }

复制代码

LIUZHU

附件，同样WPS测试

流水年华zibo

LIUZHU 发表于 2024-6-12 17:03
编号“99”是表示折扣吗？这部分只统计金额合计？

您好，这个折扣我想不合计，要怎么改代码呢？因为我发现运用了上面的宏之后，有些合计不正确，能请您帮忙改为格式如附下一楼的附近吗？只是把所有表单合并就可以了

流水年华zibo

LIUZHU 发表于 2024-6-15 12:18
附件，同样WPS测试

太感谢了，请再帮忙修改一下，下面的附件