使用EXCEL计算排列组合

来源：百度知道 编辑：UC知道 时间：2024/06/24 19:21:23
有01-33，三十三个数字，使用EXCEL排列6个数排列为一组应该怎么排列呢？
“byl341010202老师”我看到了你的回答，最后的计算结果的数量和我的是一样的，但是具体的操作步骤，你可以给我讲解一下么？
我会加分的。

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个不同数字