EXCEL中6个数随机分成三组,每组取一个数字构成新的组合（每组3个）共有几种可能？

Question

比如：（1,2,3,4,5,6）分成三组，即（1,2）（3,4）（5,6）；从三组中每组取一个数字组成新的组共有：（1,3,5）、（1,3,6）、（1,4,5）、（1,4,6）、（2,3,5）、（2,3,6）、（2,4,5）、（2,4,6），要是其它分组又能形成新的组合，去掉重复的有几种可能？EXCEL中怎么能将它们全部列出来？
随机平均分成三组哦！

Answer 1

Sub aaa()
Dim i, j, k, s, arr(1 To 1000, 1 To 3)
For i = 1 To 2
    For j = 3 To 4
        For k = 5 To 6
            s = s + 1
            arr(s, 1) = i
            arr(s, 2) = j
            arr(s, 3) = k
Next k, j, i
[a1].Resize(UBound(arr), 3) = arr
End Sub

excel中按alt+F11，然后插入，模块，把代码粘贴进去，按F5运行，工作表的a1：c8就是结果

追问

弱弱的问句能给个文件直接下载吗？谢了!

追答

才看到 你这个是随机数。。上面的代码是你打的比方的代码

追问

是的，我只是举了个例子，麻烦你将做好的发个下载吧

追答Sub aaa()
Dim cs, arr, arr1(1 To 10000, 1 To 3), x, i, j, k
cs = Range("a1:a6")
For x = 1 To 6
    Cells(x, 1) = Cells(x, 1) + Int(Rnd * 7) * 1000
Next
[a1:a6].Sort [a1], 1, , , 2
arr = [a1:a6]
[a1:a6] = cs
For i = 1 To 2
    For j = 3 To 4
        For k = 5 To 6
            s = s + 1
            arr1(s, 1) = arr(i, 1) Mod 1000
            arr1(s, 2) = arr(j, 1) Mod 1000
            arr1(s, 3) = arr(k, 1) Mod 1000
Next k, j, i
[c1].Resize(s, 3) = arr1
End Sub

6个数据我放在a1：a6单元格的。结果在c1：e8

Sub aaa()
Dim cs, arr, arr1(1 To 10000, 1 To 3), x, i, j, k
cs = Range("a1:a6")
For x = 1 To 6
    Cells(x, 1) = Cells(x, 1) + Int(Rnd * 7) * 1000
Next
[a1:a6].Sort [a1], 1, , , 2
arr = [a1:a6]
[a1:a6] = cs
For i = 1 To 2
    For j = 3 To 4
        For k = 5 To 6
            s = s + 1
            arr1(s, 1) = arr(i, 1) Mod 1000
            arr1(s, 2) = arr(j, 1) Mod 1000
            arr1(s, 3) = arr(k, 1) Mod 1000
Next k, j, i
[c1].Resize(s, 3) = arr1
End Sub

6个数据我放在a1：a6单元格的。结果在c1：e8

怎么重复了一次？？？

追问

感谢您的回答，这个我不会用啊，麻烦你做好了，上传到百度云盘我下载，好吗？

追答

明天吧，下班了。

加我企鹅 2304.35.9717