首先,11个数取5个一组,组合共有
=COMBIN(11,5)
=462 个
然后在excel里面随便录制一个宏,编辑宏,将宏代码全部清除,把以下代码粘贴进去,运行这个宏就行了。
Dim arr
Range("A1:Q462").ClearContents
arr = [A1:Q462]
l = 1
m = 1
For i1 = 1 To 7
For i2 = i1 + 1 To 8
For i3 = i2 + 1 To 9
For i4 = i3 + 1 To 10
For i5 = i4 + 1 To 11
arr(l, m) = i1 & " " & i2 & " " & i3 & " " & i4 & " " & i5
l = l + 1
If l =462 Then
m = m + 1
l = 1
End If
Next i5
Next i4
Next i3
Next i2
Next i1
For l = 1 To 10
For m = 1 To 17
Cells(l, m) = arr(l, m)
Next m
Next l
[A1:Q462] = arr
温馨提示:答案为网友推荐,仅供参考