Question

excel排列组合同时满足一定条件的VBA代码

有如下数据：
①有N行数据（每行10-24个数字）如：1.2.3.4.5.6.7.8.9.10，
②20组数据（每组6个数字），用来筛选排列组合结果的
要从①的数据里随机抽6个数字（比如从第一行随机抽6个），同时6个数字里必须在②的20组数据中有m行有重复数据

求一个宏代码能把满足条件的排列组合结果列出来~

最好把结果生成在sheet2中
换个思路理解就是：
随机组合的6个数字，与20组数据里的(20-m)组没有相同数字~
比如，1.3.5.8.11.13这一组数据 和2.4.6.7.12.14.15.16...无重复部分

Answer 1

6个数字里必须在②的20组数据中有m行有重复数据
这句话的中文意思是不是：6的重复数据量的m数据群20必须，The 6 numbers must be in the group of 20 M data in duplicate data？？？

追问

是随机组合的6个数字和20组数据有m组有重复
例如：随机组合：1.3.5.8.11.13
20组数据里任意一组有1.3.5.8.11.13中的任意一个，那么这一组数据和随机组合的这组数据无重复，那么就不满足条件。

追答

这段“例如”中没有提到m是怎么被利用的。

追问

m的值就是20组数据里有m组和随机数据有重复的~
这个宏代码要达到3个目的
①根据n的值把第n行的数据随机组合6个数
②6个数和20组数里有m组有重复的(部分重复)，m=0~20
③把满足①和②的组合结果列出来

追答

1 很简单。但是随机组合恐怕没有意义，应该遍历所有的组合。
2 还是完全看不懂m的含义。能举个例子当提取物为1,2,3,4,5,10，m=3时，应该是什么结果吗？

追问

对 应该遍历所有的组合。

比如提取物为1,2,3,4,5,10,那这组数和20组有10组有重复(1-10列有重复，11-20无重复)（m就是我要的重复组数）

而如果输入的m=3，那么这组提取物就不满足条件~

追答

看懂了。下班了，明天给你。

追问

谢谢 T.T... 达到我要的效果追加20分~

追答

试试看是不是这样？

追问

可以是可以了~ 还有2个地方再帮我修改一下行么
1、有4800多行，有时数据量大的时候还不止4000多~ 一个一个点 ~好费时~
能不能做到自动第一行、第二行...一直下去到空白位置
然后数据导出到sheet2 可以第一行和第二行空白一列分开~
或者导出新的excel表也行~
2、有少部分一行有34个数字，能改成每行34个吗

追答

n值输入0，则代表计算所有行。

n值输入其他数，则代表计算相关行。

但是，计算所有行会极其缓慢。。。

追问

那没关系，我可以弄其他东西先，那左边数据加多10列行么？有些有34个…

追答

现在就是34个。。。

追问

n=0 算出来结果会重复吗
比如n=1和n=2时会有2个重复结果
那么n=0时结果会重复吗

追答

肯定会
因为这么多行的数据，本身就有大量重复的。

Answer 2

这210个结果里把要和这20……
这句话没看懂，请举个例子说明一下。
n，m是由用户输入？
最终结果是什么？请举例。

20组数据里任意一组有1.3.5.8.11.13中的任意一个，那么这一组数据和随机组合的这组数据无重复（有重复吧）

追问

m和n 由用户输入

意思就是10个数字抽6个数 有210种组合结果
然后比如20组分是截图那样的。
那么5.6.7.8.9.10 这一组数据和20组数据就有第1-10组有重复(重复1个或者6个重复都算有重复)那么11-20就不重复了~

追答

那么5.6.7.8.9.10 这一组数据和20组数据就有第1-10组有重复(重复1个或者6个重复都算有重复)那么11-20就不重复了~

这明白了，那么m做什么用？

追问

比如m=3
那么所有的组合里和20组任意3组有重复就算满足条件，而有一些可能只和2组或者1组有重复

那么那些重复1.2组的就不满足
我要的是根据m和n吧满足条件的组合列出来

追答

n=23时，m=3
组合数有210组，那么210组中任意一组数都有3个解，那么210*3，这么多个组合全部要显示？怎么表示它们的对应关系？

追问

n=23，那么组合就是210个。
如果m=3时 210个组合全部满足条件的话就全部显示出来~
m=3时 如果只有120个满足条件 就显示满足条件的120个

追答

明白了。我手头上有一个做全组合的vba，修改一下应该可以满足你的要求。ougouw答应给你做，那就先看看他的吧。我先不动。
我的理解是这样：
假设n=35，m=7。n=35对应那行有24个数，24个数选6，形成134596个组合。其中每个组合称为6数组合。
拿一个6数组合出来，与20列数据比较，如果正好有7列数据与这个6数组合有数字上的重复，则表示这个6数组合满足要求。如果大于或小于7列数据与这6数组合有重复，则这个6数组合不满足。
对134596个6数组合逐一进行上述判断，符合上述要求的6数组合全部列出来。

追问

是的！

追答

ougouw的代码可以解决就好了。

追问

嗯！也谢谢你…

追答

有excel的问题可以发求助给我。