在吗 怎么用EXCEL做22选5的排列组合 你说的我也没看明白啊

在工作表插入一命令按钮，并编程如下：
Private Sub CommandButton1_Click()
Rem 怎么用EXCEL做22选5的排列组合
Dim arr$(1 To 26334)
Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer
Range("A1:A26334").ClearContents
l = 1
For i1 = 1 To 18
For i2 = i1 + 1 To 19
For i3 = i2 + 1 To 20
For i4 = i3 + 1 To 21
For i5 = i4 + 1 To 22
arr$(l) = i1 & "-" & i2 & "-" & i3 & "-" & i4 & "-" & i5
l = l + 1
Next i5
Next i4
Next i3
Next i2
Next i1
For i = 1 To 26334
Range("A" & i) = arr$(i)
Next i
End Sub