COMBIN(6,2)=15
COMBIN(15,3)=455
有455个组合
要先全部列出,非VBA做不出来
VBA也是非常复杂了请问您能做出来吗？Sub test()
Dim j, k, l
Dim brr(1 To 1048576, 1 To 1)
Dim crr(1 To 1048576, 1 To 3)
For j = 1 To 5
For k = j + 1 To 6
brr(n + 1, 1) = "(" & j & "," & k & ")"
n = n + 1
Next
Next
[a1].Resize(UBound(brr), 1) = brr
arr = [a1].CurrentRegion
For i = 1 To UBound(arr) - 2
For ii = i + 1 To UBound(arr) - 1
For iii = ii + 1 To UBound(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
Next
Next
Next
[c1].Resize(UBound(crr), 3) = crr
End Sub
这个便是了

如果11个中随机6个算上 那数量是很可怕的感谢您的回答!