生成 m选n 的所有组合，可指定组合的和值，每秒生成400万个组合，带详细注释的代码

aragorn_meng · 发表于 2012-9-24 04:23

非常感谢！
请问楼主可否增加一个元素可重复选项，我VBA没怎么摸过，您的代码我看的一知半解，无从下手呵，先行谢过！

aragorn_meng · 发表于 2012-9-25 13:58

aragorn_meng 发表于 2012-9-24 04:23
非常感谢！
请问楼主可否增加一个元素可重复选项，我VBA没怎么摸过，您的代码我看的一知半解，无从下手呵， ...

好的，多谢楼主回复 :)

hzq8882004 · 发表于 2012-12-9 22:54

先留个记号，容后再学。

JAMES.HSIUN · 发表于 2013-4-9 15:44

{:soso_e179:}{:soso_e179:}，超级强大，学习啦，只是看到太晚了啊！非常非常感谢！

longming3 · 发表于 2013-7-15 11:44

超级强大的vba，我辈只能望其项背

wenwen000424 · 发表于 2013-7-15 13:28

作个记录，学习一下。

香川群子 · 发表于 2013-7-15 13:59

现在Excel VBA代码生成组合的算法，速度效率最快的是香川群子写的代码。

生成200万个组合 Combin(30,7)=2,035,800 只要 0.3秒 → 即百万次0.15秒

http://club.excelhome.net/thread-1033055-1-1.html

168baijian · 发表于 2013-8-9 10:26

法师,学习了你的组合算法,很感激你,请问有没有排列算法?

kerorio · 发表于 2014-1-30 17:57

楼主共享的算法，对在下这种新人，仿佛是一本本教材
谢谢共享

流常闪 · 发表于 2014-3-13 11:49

求指教：A1: 1,2,3,4,5, A2：5，6，7，8，9，10；（B1:Bn）：生成A1,A2,组合，并删除重复的组合； C1：1，2，3，4，5，6，7，8，9，10；（D1：Dn）：生成C1组合，最后，B列与D列筛选差删除重复的组合！

		自动登录	找回密码
密码			免费注册

[分享] 生成 m选n 的所有组合，可指定组合的和值，每秒生成400万个组合，带详细注释的代码