excel表格怎么排a2

1.怎么用excel计算排列组

可用如下VBA程序求得：

Private Sub CommandButton1_Click()

Const a$ = ""

Dim arr(98280)

Dim i As Long

Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer

Range("A1:A98280").ClearContents

l = 1

For i1 = 1 To 24

For i2 = i1 + 1 To 25

For i3 = i2 + 1 To 26

For i4 = i3 + 1 To 27

For i5 = i4 + 1 To 28

arr(l) = Mid(a$, i1 * 2 - 1, 2) & " " & Mid(a$, i2 * 2 - 1, 2) & " " & Mid(a$, i3 * 2 - 1, 2) & " " & Mid(a$, i4 * 2 - 1, 2) & " " & Mid(a$, i5 * 2 - 1, 2)

l = l + 1

Next i5

Next i4

Next i3

Next i2

Next i1

For i = 1 To 98280

Range("A" & i) = arr(i)

Next i

End Sub