如何用VBA做出如下规划求解，请求大神帮助，谢谢了

lutom

三坛老窖 发表于 2017-4-9 16:37
和值和数据量都不太大的话，问题不大。
---------------------------------------------------

亲自测试，此代码可行，在数据不多（20个左右）的情况下可用。如果数据量很多，得常开机状态下运行很长时间。   
但是其中也有一些BUG，比如对于数据中存在小数、负数的情况下，以及不知明的原因下会出现问题。
本人亲自修改了一些代码后问题解决，其中最后一个数据类型的问题困扰了很长时间，终于找到出问题的原因，很不容易，因水平有限。感谢老窖老师贡献的代码，在此本人也把修改后的发出来分享，感谢！

微风～雨

偶然看到了凑数的帖子，进来凑个热闹。简单写了一个，如果按楼主这个思维逻辑，应该是这样写：
1、递归得到全部组合的数据，选取凑数长度最小的那一组，举例子：如34，有组合一：34，组合二：33+1，组合三：30+2+1+1，则选取组合一为最优
2、把原数组内的34去掉，不参与下一次计算，可用字典加数组替换
最优选择会增加时常，我增加一个显示，即限制4个数内凑数，无限制的话，在碰到源数据200，递归时常过久