求高效简洁的VBA实现数据组合

灯火阑珊888

香川群子 发表于 2016-5-24 22:00
没明白你想要什么结果。

你重新上附件，数据少一点，然后列出你的所有想要的结果。

香川老师 其他都不变，就是把组合总数全部输出。

2.按E2指定行数提取并进行组合，检查输出该组合的不重复数字集合。改成全部数字集合

附件已标注，请查看 VBA实现组合22.zip (12.52 KB, 下载次数: 4)

2016-5-24 23:45 上传

点击文件名下载附件

香川群子

灯火阑珊888 发表于 2016-5-24 23:45
香川老师 其他都不变，就是把组合总数全部输出。附件已标注，请查看

什么意思？

比如说，在你这个附件的11行数据中，进行11取2组合得到11个组合结果，
对这11个组合结果的数字进行【去重复排序】，
那么这些组合中，0123456789一共出现10次，023456789出现1次，
你想要把 0123456789 输出10次？这么做有意义吗？

……
或者，你希望列出所有不重复组合，以及它们各自的出现次数？

灯火阑珊888

香川群子 发表于 2016-5-25 09:11
什么意思？

比如说，在你这个附件的11行数据中，进行11取2组合得到11个组合结果，

香川老师 我把数字弄简单了 麻烦你在看看 VBA实现组合333.rar (14.32 KB, 下载次数: 2)

2016-5-25 09:47 上传

点击文件名下载附件

香川群子

灯火阑珊888 发表于 2016-5-25 09:48
香川老师 我把数字弄简单了 麻烦你在看看

这么说，现在C列的结果，不是你想要的。

那么，你自己手工把你想要得到的结果列出来。

香川群子

比如你有5行数字如下：
1
4
7
10
13

现在，你要5取3组合共有10种组合结果：
1,4,7
1,4,10
1,4,13
1,7,10
1,7,13
1,10,13
4,7,10
4,7,13
4,10,13
7,10,13

然后，你还想把其中0-9的数字【去重复排序】，那么结果就是：
147
014
134
017
137
013
0147
1347
0134
0137

是这样的意思吗？

灯火阑珊888

香川群子 发表于 2016-5-25 13:40
比如你有5行数字如下：
1
4

香川老师   太对了 就是这个意思  要的就是这种组合结果  

香川群子

那就这样吧。

需要注意，如果行数、组合组数太多，那么计算组合结果总数超过65536的话，输出结果就毫无意义。
因此，程序将自动停止，不做这样的计算。

灯火阑珊888

香川群子 发表于 2016-5-25 15:33
那就这样吧。

需要注意，如果行数、组合组数太多，那么计算组合结果总数超过65536的话，输出结果就毫无 ...

香川老师 代码出错了 运行不成啊  

灯火阑珊888

香川群子 发表于 2016-5-25 15:33
那就这样吧。

需要注意，如果行数、组合组数太多，那么计算组合结果总数超过65536的话，输出结果就毫无 ...

香川老师，这个附件的代码出错，我改了一晚上 都不行 还是出错。还得女侠帮忙改改 谢谢。

香川群子

灯火阑珊888 发表于 2016-5-25 23:46
香川老师，这个附件的代码出错，我改了一晚上 都不行 还是出错。还得女侠帮忙改改 谢谢。

可是错在哪里？你什么也没说。