用excel在15个设定的数中,产生6个数字一组的随机排列组合

⽤excel在15个设定的数中,产⽣6个数字⼀组的随机排列组合
⽤excel在15个设定的数中,产⽣6个数字⼀组的随机排列组
合
yangy1104 10级被浏览374次 2013.04.25
检举
⽤excel在已设的15个数中产⽣6个数字⼀组的随机排列组合,请教⾼⼿怎么做? ⽐
如:2,5,8,9,13,16,18,19,20,21,22,25,27,29,31,这15个数中产⽣任意6个数为⼀组的排列组合,有多
少种可能. 不要出现这样的可能:2 ,9,13,18,25,29和25,9,18,13,29,2和29,25,18,13,9,2等等这些从
⼤到⼩排列是⼀样的要去掉. 或者别的有没有什么软件可以做? 谢谢了,我在⽹上怎么也找不到答
案,是不是有难度? 对不起,我没有积分
wuwei369w
采纳率：46% 10级 2013.04.25
检举
/question/99074525.html看看这个类似的，我稍微给你改了下语句~~ 打
开⼀个EXCEL 按ALT+F11 组合键，打开VBA编辑器，选择这个表的名字，插⼊-模块。

双击插
⼊的模块。

在出现的⽂本框中输⼊以下语句，然后关闭 Function ABC(arr As Range, num As
Integer) R = arr.Rows.Count For C1 = 1 To R For C2 = C1 + 1 To R For C3 = C2 + 1 To R For
C4 = C3 + 1 To R For C5 = C4 + 1 To R For C6 = C5 + 1 To R rr = rr + 1 ABC = arr(C1, 1) & ","
& arr(C2, 1) & "," & arr(C3, 1) & "," & arr(C4, 1) & "," & arr(C5, 1) & "," & arr(C6, 1) If rr = num
Then Exit Function Next Next Next Next Next Next End Function 关闭之后，假如你的数据15
个在A1:A15中，你可在任意的⼀个单元格中输⼊
=ABC($A$1:$A$15,INT(RAND()*COMBIN(15,6))) 就能随机出来⼀组数字了，⽤逗号隔开了~~
如果想都列出来，那就在任意单元格输⼊ =ABC($A$1:$A$15,ROW(A1)),公式往下拉就能出来
了如果不懂给你发给⽂件，留下邮箱~~ （这个有点难度，分能给多少给多少吧，权当帮忙了
~~）。