如何用VBA对合计金额凑明细金额（凑数）

excel333

香川群子 的 凑数强化版如何 实用化？
要求：A列是合计金额，从B列的明细金额进行凑数，即A列的每一行的一个数等于B列的任意一个或几个数的合计（一般都是相连几个数的、B列的数只能用一次），凑上的，两列的数字都随机标上相同的底色，凑不上的就不管它。
这样就可以筛选一下没有底色的就是凑不了的了！
不用枚举，B列的明细数字只能用一次，用过的就不要再用了，也不用列出来有多少个组合，B列任意的数字凑成A列即可，凑上后A列、B列标上相同的底色。我只需筛选找出匹配不上的、没有标示底色的金额，并不需要去管它是由哪些组合凑成的。
难点：有些是一个合计金额等于多个明细金额。

dcanoe

帮顶一下，很多经典代码可以复制下来平时使用，慢慢提高。

huanghai22

凑了134个，详细见表2

excel333

huanghai22 发表于 2023-2-5 21:38
凑了134个，详细见表2

谢谢你！我想要用VBA方式完成的代码。

232670631

huanghai22 发表于 2023-2-5 21:38
凑了134个，详细见表2

你个鸡儿，前年发帖挑战香川。你那烂代码，我看过

huanghai22

excel333 发表于 2023-2-5 21:46
谢谢你！我想要用VBA方式完成的代码。

我的是烂代码，你找一下论坛的优秀代码

hezudao_long

多个合计数字批量凑数？     我也在找这样的方法，可惜香川大侠的代码看不懂，不会改。

excel333

看来它是有一定的难度

kevinchengcw

如果枚举出每一个数的全部组合再重新查找可以组成最多个数的组合似乎计算量太大了

excel333

kevinchengcw 发表于 2023-2-24 15:11
如果枚举出每一个数的全部组合再重新查找可以组成最多个数的组合似乎计算量太大了

不用枚举，B列的明细数字只能用一次，用过的就不要再用了，也不用列出来有多少个组合，B列任意的数字凑成A列即可，凑上后A列、B列标上相同的底色。我只需筛选找出匹配不上的、没有标示底色的金额，并不需要去管它是由哪些组合凑成的。