VBA数据按要求重新组合

gfdhgw

各位老师,数据源表格a1到e101，A列为序号，bcde列为数字，请从第2行开始，选取5行数字进行组合，要求如下：组合后的新数据去重复后数字个数要等于6个，这6个数据从小到大排列，依次相减，余数等于1的不能超过2个。将所有符合要求的组合6个数字，依次输出到组合表A到F列，并把组合这6个数字的原数据对应的序号输出在组合的对应行的g到k列中,谢谢!

鄂龙蒙

【这6个数据从小到大排列，依次相减，余数等于1的不能超过2个。】？？？

鄂龙蒙

100选6的组合有1192052400种组合呀！！！

笨鸟飞不高

应该是100选5（请从第2行开始，选取5行数字进行组合），这5行数字中不重复的数字为6个，连续数不超过2组的，为满足要求

gfdhgw

笨鸟飞不高 发表于 2023-7-15 09:35
应该是100选5（请从第2行开始，选取5行数字进行组合），这5行数字中不重复的数字为6个，连续数不超过2组的 ...

是的,不能超过2组相连续的

gfdhgw

鄂龙蒙 发表于 2023-7-15 08:45
100选6的组合有1192052400种组合呀！！！

符合这些要求的不会很多:去重复后数字个数要等于6个，这6个数据从小到大排列，依次相减，余数等于1的不能超过2个,就是连续数不超过2组,比如:1,2,3,后面不能是4,或5,6,或6,7

zxsea_7426

跑了一个多小时才得出一个结果：

gfdhgw

zxsea_7426 发表于 2023-7-15 11:33
跑了一个多小时才得出一个结果：

你好,能提供一下代码吗?能优化一下速度更好了,谢谢

zxsea_7426

gfdhgw 发表于 2023-7-15 15:36
你好,能提供一下代码吗?能优化一下速度更好了,谢谢

用的是笨办法，增加过程跳出机制，时间减少了一半



结果还是一样的只有一条结果




有没有高手能有更快的算法?

gfdhgw

zxsea_7426 发表于 2023-7-15 19:55
用的是笨办法，增加过程跳出机制，时间减少了一半

谢谢,这个确实运算量比较大.
老师,有没有空帮我看一下另外一个组合的问题?是关于多组数据,二次组合的
https://club.excelhome.net/threa ... tml?_dsign=f2c145cd