excel里如何用vba实现如下图所示的凑数功能？

看过这个表，有两点意见：

1. 由于不知道你双击时有哪些组合已经产生过了（因为你可以点击几次后关闭操作，第二天打开继续操作）所以，【穷尽组合】唯一可能就是对应你指定的H列单元格（也就是某个合计值），计算在各种组合下，A列的余数。。。照这个思路，其实，你需要的是对应这A~G的七列的总共144种组合，你只要测试某个合计数能不能满足分配就可以了的。分配时，A列作为最后的分配余额接受点。你的问题就很容易解决了。

2. 至于填充颜色方面，不知道你的样例中的前三行