Question

excel任意数字自动组合排列

左边黑色的格子里面有一些数据（数据有时候多有时候少，不过最多10个，反正就在黑色格子里面），我想要点一下右边按钮，这些数据就在黑色下面的单元格里自动每行3个3个的不重复逐行排下去，一直到排完，请问这个代码该怎么写呢？有没有哪位哥们帮帮忙啊，

Answer 1

Sub rand()
Dim i%, j%, a%, b%, c%, m&, arr(1 To 12), brr(), k%
k = 1
For i = 1 To 4
For j = 1 To 3
If Cells(i, j) <> "" Then
arr(k) = Cells(i, j).Value
k = k + 1
Else
End If
Next
Next
ReDim brr(1 To (k - 1) * (k - 2) * (k - 3) / 6, 1 To 3)
m = 1
For a = 1 To k - 3
For b = a + 1 To k - 2
For c = b + 1 To k - 1
brr(m, 1) = arr(a)
brr(m, 2) = arr(b)
brr(m, 3) = arr(c)
m = m + 1
Next
Next
Next
Cells(6, 1).Resize(m - 1, 3) = brr
End Sub

追问

你好，如果我想要改成2个一组的话该怎么改啊，有空帮忙处理一下吗？谢谢！

你好，如果我想要改成2个一组的话该怎么改啊，有空帮忙处理一下吗？谢谢！

追答

Sub rand()
Dim i%, j%, a%, b%, c%, m&, arr(1 To 12), brr(), k%
k = 1
For i = 1 To 4
For j = 1 To 3
If Cells(i, j) "" Then
arr(k) = Cells(i, j).Value
k = k + 1
Else
End If
Next
Next
ReDim brr(1 To (k - 1) * (k - 2) / 2, 1 To2)
m = 1
For a = 1 To k - 3
For b = a + 1 To k - 2
brr(m, 1) = arr(a)
brr(m, 2) = arr(b)
m = m + 1
Next
Next
Cells(6, 1).Resize(m - 1,2) = brr
End Sub

追问

谢谢谢谢！

奇怪了，好像有点不对啊！6个数2个2个组合应该可以组15组，10个数应该可以组45组的啊，用这个代码弄出来组数不对呢？是不是代码哪里没改好呢？

追答

Sub rand()
Dim i%, j%, a%, b%, c%, m&, arr(1 To 12), brr(), k%
k = 1
For i = 1 To 4
For j = 1 To 3
If Cells(i, j) "" Then
arr(k) = Cells(i, j).Value
k = k + 1
Else
End If
Next
Next
ReDim brr(1 To (k - 1) * (k - 2) / 2, 1 To 2)
m = 1
For a = 1 To k - 2
For b = a + 1 To k - 1
brr(m, 1) = arr(a)
brr(m, 2) = arr(b)
m = m + 1
Next
Next
Cells(6, 1).Resize(m - 1, 2) = brr
End Sub

追问

非常感谢