使用EXCEL计算排列组合

Question

有01-33，三十三个数字，使用EXCEL排列6个数排列为一组应该怎么排列呢？
“byl341010202老师”我看到了你的回答，最后的计算结果的数量和我的是一样的，但是具体的操作步骤，你可以给我讲解一下么？
我会加分的。

Answer 1

Private Sub CommandButton1_Click()
Dim arr
Range("A1:Q65536").ClearContents
arr = [A1:Q65536]
l = 1
m = 1
For i1 = 1 To 28
For i2 = i1 + 1 To 29
For i3 = i2 + 1 To 30
For i4 = i3 + 1 To 31
For i5 = i4 + 1 To 32
For i6 = i5 + 1 To 33
arr(l, m) = i1 & " " & i2 & " " & i3 & " " & i4 & " " & i5 & " " & i6
l = l + 1
If l = 65537 Then
m = m + 1
l = 1
End If
Next i6
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:Q65536] = arr
End Sub
(33*32*31*30*29*28)/(6*5*4*3*2*1)=1107568
所以共有1107568个不同数字的组合。
我在计算时，把每个组合的6个不相同的数字，各用一个空格符分隔，存放在一个单元格中。
实际运算时间仅10秒钟即可完成，主要时间将花费在填充单元格上，全部填满约半小时。
因为1107568=65536*16+58992
所以全部填满后A-P会全部填满，Q列填到第58992行。
[A1:Q65536] = arr语句用来填充单元格，因运行时费时较多，我暂时把它注释掉了。代之以如下语句用来显示前10行数据，作示范。
For l = 1 To 10
For m = 1 To 17
Cells(l, m) = arr(l, m)
Next m
Next l

Answer 2

全部排列出来没有意义。
可以用随机函数随机生成6个数，=randbetween(1,33)，出现重复值时按F9重算。

另外可用VBA编写程序随机生成一组6个数。

Answer 3

双色球 33选6.你要做遗漏表吧,这个并不是很难/.

Answer 4

请说清楚，6个排一组, 是横向还是竖向