请高手帮忙看看，怎么用函数或者VBA实现？

ming89033447

在超发数一列，筛选出求和为差异数的数据，使超发数+差异数=0，请大神写一段函数，或者VBA，看看用什么方法能实现

ming89033447

就是挑选哪些超发数加起来等于差异数

3190496160

这是代码才能解决的问题吧

autohotey

啥意思 没看明白

dambcer

这是凑数嘛。。。。。。。。。

ming89033447

autohotey 发表于 2024-12-11 15:22
啥意思 没看明白

就是挑选哪些超发数加起来等于差异数

edwin11891

这其实是个线性规划问题，但是在数量不大的情况下，函数公式还可以解决，数据量大了后难度较大。
公式结果列举了所有可能的组合：

1. =DROP(REDUCE("",UNIQUE(D2:D45),LAMBDA(XX,YY,VSTACK(XX,LET(Rc,FILTER(J2:K45,D2:D45=YY),sRc,TAKE(Rc,,1),n,ROWS(sRc),nMax,DEC2HEX(2^n-SEQUENCE(2^n),9),Res,--MID(RIGHT(HEX2BIN(LEFT(nMax,1),4)&HEX2BIN(MID(nMax,2,2),8)&HEX2BIN(MID(nMax,4,2),8)&HEX2BIN(MID(nMax,6,2),8)&HEX2BIN(RIGHT(nMax,2),8),n),TOROW(SEQUENCE(n)),1),sBox,MMULT(Res,sRc),sSel,FILTER(Res,sBox=-INDEX(TAKE(Rc,,-1),1)),sCom,BYROW(sSel,LAMBDA(x,TEXTJOIN(",",1,IF(x=1,TRANSPOSE(sRc),"")))),Rst,IFERROR(sCom,"无匹配"),IFNA(HSTACK(YY,Rst),""))))),1)

复制代码

ming89033447

edwin11891 发表于 2024-12-11 19:13
这其实是个线性规划问题，但是在数量不大的情况下，函数公式还可以解决，数据量大了后难度较大。
公式结果 ...

就是数据量太大了

edwin11891

ming89033447 发表于 2024-12-11 19:31
就是数据量太大了

这里说的数据量，是指同一物料编码下的数据行数，不是数据总行数。如181561501，有6行数据；181561692，有13行数据，都不超过20，所以上面公式都可行。理论上最大可以计算同一物料编码内有20个以内数据的组合，超过20个，超出了函数最大值。

这一问题在下面帖子里有过分析讨论，可以参考：
https://club.excelhome.net/thread-1694406-2-1.html

pgp5866

1. =GROUPBY(D2:D45,ROW(2:45),LAMBDA(x,LET(s,REDUCE(0,INDEX(J:J,x),LAMBDA(x,y,VSTACK(x,x&","&y))),TEXTJOIN(" // ",,MID(FILTER(s,MAP(s,LAMBDA(m,SUM(REGEXEXTRACT(m,"\d+",1)/1)))+@INDEX(K:K,x)=0),3,99)))),,0)

复制代码