=IFERROR(COMBIN($A3,B$2),"")
若要列出每组号码，看下
Dim arr1(), n%, m&, zs%, qs%
Sub 组合1()
递归算法
Dng, i%
n = 0: zs = 0: qs = 0
5 On Eme Next
If zs >= 1 Then G
zs = InputBox("请输入总元素（号码）的个数")
10
If zs < 1 Or ***.number = 13 Then GoTo 5
qs = InputBox("请输入所取元素（号码）的个数")
If qs < 1 Or ***.number = 13 T
m = ***.combin(zs, qs)
ReDim arr(
For i = 1 To zs
arr(i) = ***.text(i, ***.rept(0, Len(zs)))
Next i
zuhe arr, 1, "", 0
Range("N:N").ClearContents
Rze(m) = arr1
Ms中取" & qs & "个为一组，共" & _
m & "组，排列在N列中。"
End Sub
Sub z, y)
If y = qs Then
If n = 0 Then ReDim arr1(1 To m, 1 To 1)
n = n + 1
arr1(n, 1) = Left(sr, Len(sr) - 1)
Exit Sub
End If
If x < zs + 1 Then
zuhe arr, x + 1, sr & arr(x) & ",", y + 1
zuhe arr, x + 1, sr, y
End If
End Sub