1到33的数字中任选六个不重复的数字

Question

例：1 8 22 23 7 12 2 3 5 6 9 8 ……
这些数字的全部排列的组合（好像有百万个）能给我发过来吗？ 谢谢帮忙！！
邮箱：[email protected]
各位大虾帮帮忙！

Answer 1

你是要双色球的随机选号吗？这是我之前写的一段VBA代码，你可以试一下。

Sub rand()
[w1:w33] = "=rand()"
[w1:w6] = Application.Rank([w1:w6], [w1:w33])
[w1:w6].Sort key1:=[w1]
Range("W1:W6").Select
Selection.Copy
Range("J6:O6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
[w1:w33].Clear
Range("P6").Select
ActiveCell.FormulaR1C1 = "=ROUND(RAND()*15+1,0)"
End Sub

如果你是要1-33的每一种组合的话，数量太大了，没啥意义，总计有1107568种组合