VBA数据按要求重新组合

gfdhgw · 发表于 2023-7-14 21:28

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

鄂龙蒙 · 发表于 2023-7-15 07:47

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

鄂龙蒙 · 发表于 2023-7-15 08:45

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

笨鸟飞不高 · 发表于 2023-7-15 09:35

本帖最后由笨鸟飞不高于 2023-7-15 09:38 编辑

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

gfdhgw · 发表于 2023-7-15 10:50

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

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

gfdhgw · 发表于 2023-7-15 10:52

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

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

zxsea_7426 · 发表于 2023-7-15 11:33

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

gfdhgw · 发表于 2023-7-15 15:36

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

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

zxsea_7426 · 发表于 2023-7-15 19:55

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

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

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

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

gfdhgw · 发表于 2023-7-15 21:18

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

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

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

[求助] VBA数据按要求重新组合