【EXCEL中从11个数字选不同6数字的排列组合,但有这样的-查字典问答网

来自刘丽娜的问题

　　【EXCEL中从11个数字选不同6数字的排列组合,但有这样的要求……要求如下:6个数字随机平均分成三组后,组与组之间顺序不论,组内成员之间顺序不论,将这样的组合全部排出来.比如6个数字是123456】

　　EXCEL中从11个数字选不同6数字的排列组合,但有这样的要求……

　　要求如下:6个数字随机平均分成三组后,组与组之间顺序不论,组内成员之间顺序不论,将这样的组合全部排出来.

　　比如6个数字是123456,它们进行排列,（1,2）（3,4）（5,6）相同的组合不要:比如（21,34,56）或（65,43,12）等,

　　而另外的组合有（1,3）（2,4）（5,6）/（1,4）（3,2）（5,6）/（4,5）（3,4）（1,6）等,能否将这些想要的组合排出来呢?

4回答

2020-02-05 01:51

我要回答

请先登录

苏润

　　COMBIN(6,2)=15

　　COMBIN(15,3)=455

　　有455个组合

　　要先全部列出,非VBA做不出来

　　VBA也是非常复杂了

2020-02-05 01:52:26

刘丽娜

　　请问您能做出来吗？

2020-02-05 01:55:12

苏润

　　Subtest()

　　Dimj,k,l

　　Dimbrr(1To1048576,1To1)

　　Dimcrr(1To1048576,1To3)

　　Forj=1To5

　　Fork=j+1To6

　　brr(n+1,1)="("&j&","&k&")"

　　n=n+1

　　[a1].Resize(UBound(brr),1)=brr

　　arr=[a1].CurrentRegion

　　Fori=1ToUBound(arr)-2

　　Forii=i+1ToUBound(arr)-1

　　Foriii=ii+1ToUBound(arr)

　　crr(M+1,1)=arr(i,1)

　　crr(M+1,2)=arr(ii,1)

　　crr(M+1,3)=arr(iii,1)

　　M=M+1

　　[c1].Resize(UBound(crr),3)=crr

　　EndSub

　　这个便是了

　　如果11个中随机6个算上那数量是很可怕的

2020-02-05 01:58:41

刘丽娜

　　感谢您的回答!

2020-02-05 02:02:31

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读