求代码达到以下效果，谢谢大佬们！

15899681383

这是表一（需求表里）


[size=0.83em]image.png (9.74 KB, 下载次数: 0)
下载附件  [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2024-6-15 10:01 上传

这是表二（订单表里）

这是表三，需要达到的效果（订单排配表）

大致的逻辑： 用表二的订单数量去匹配表一的需求数量， 然后按照交期回复的具体时间和日期逐渐去递减，达到表三的效果。 如果某个订单数量需要先匹配完前一个需求日期剩余的数量，再将剩余的订单数量去匹配后一个日期的需求数量，这个时候就需要该订单及数量就要拆成两列，如表三已经标了黄色的两行就是这种情况，谢谢！

LIUZHU

看起来有点像库存中的先进先出法

ynzsvt

需求表的^交期只是一行还是多行，里面的时间顺序怎么样。

15899681383

ynzsvt 发表于 2024-6-15 16:04
需求表的^交期只是一行还是多行，里面的时间顺序怎么样。

是多行，且有可能存在同一个料号有多行需求及交期，包括交期也可能存在3个日期需求或者更多。 时间的就按单元格排的顺序一次扣减就可以了。

LIUZHU

参与下，代码运行结果

LIUZHU

JS代码，供参考

1. function 订单匹配表(){
   
2.         let xq=Sheets.Item("需求表").UsedRange.Value2.slice(1).map(([a,b,c,d])=>{
   
3.                 return d.split(/ +/).map(x=>[a,b,c,...x.split("：")]);
   
4.         }).flat();
   
5.         let res=Sheets.Item("订单表").UsedRange.Value2.slice(1).reduce((res,[a,b,c])=>{
   
6.                 let k=xq.findIndex(x=>x[4]>0)-1;
   
7.                 while(c>0){
   
8.                         let v=xq[++k], ic=c;
   
9.                         res.push([b,, a, Math.min(c,v[4]), v[2], v[3]]);
   
10.                         c=Math.max(c-v[4],0), v[4]=Math.max(v[4]-ic,0);
    
11.                         if (k==xq.length-1) break;
    
12.                 }
    
13.                 return res;
    
14.         },[["PO号","供应商编码","PN","数量","需求时间","交付时间"]]);
    
15.         Sheets.Item("订单排配表").Range("a1").Resize(res.length, res[0].length).Value2=res;
    
16. }

复制代码

LIUZHU

附件，WPS打开测试，谢谢，Excel无效

15899681383

LIUZHU 发表于 2024-6-15 16:34
JS代码，供参考

谢谢，有VBA代码编写的吗？

ynzsvt

在先进先出模块。

LIUZHU

15899681383 发表于 2024-6-15 17:37
谢谢，有VBA代码编写的吗？

倒是可以改写成VBA，只是代码比较多，现在一般都不写VBA了，JS也一样的