已知和找加数问题

fengcheng86502

假如在range("a1:a400")中有400个1~200的随机数，希望通过vba实现以下目的

1，从上述范围内找到n个值的和为指定值（以下指定值以1000为例），若可以找到，返回n个值各自的单元格行号储存到arr（）.
2，若范围内没有任何组合满足累加和为1000，则找出和为小于1000的最大值组合，将组成该组合的n个数所在行号返回至brr（）。
3，若范围内所有数累加后的和小于1000，即返回msgbox("123")
注：范围内的最大值小于1000恒成立，不存在某个值大于1000的情况
      上述1，2中，若存在多组解满足要求时，只把任意一组解的行号返回至要求的数组中即可

求大神解惑，附件就不传了，基础数据就是A列有好多随机数，理解为=randbetween（1，200）下拉400行即可。

ykcbf1100

没有附件就不看了。

tanglf188

用排名函数试试

huanghai22

类似这样的吧？

fgp1045016317

huanghai22 发表于 2022-12-4 20:45
类似这样的吧？

大佬可以分享一下工具嘛

fengcheng86502

huanghai22 发表于 2022-12-4 20:45
类似这样的吧？

对对对，跪求啊