任意15个数字5个组合排列改代码

qwbz19

各位大侠
是这样的，我现在呢，有数字1 2 3 4 5 6 7 8   我要把这8个数字在EXCEL 里任意组合，不重复，如：1234578         12345687。。。。。。
但是，这个是只选择5个数，我要的是选取八个数，请问如何改代码呢？
另外，他出来的排列数字是有逗号的，可以去掉的吗？

望大侠们能帮我改改代码

qwbz19

Public Sub RunMacro()
Sheets("结果").Rows("2:65536").ClearContents
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cnn.Open "Provider=Microsoft.ACE.oledb.12.0;Extended Properties='excel 8.0;hdr=yes';Data Source=" & ThisWorkbook.FullName
Sql = "select a.数字, b.数字, c.数字, d.数字, e.数字, f.数字 " & _
    "from [号码$] a, [号码$] b, [号码$] c, [号码$] d, [号码$] e, [号码$] f " & _
    "where b.数字 > a.数字 " & _
    "and   c.数字 > b.数字 " & _
    "and   d.数字 > c.数字 " & _
    "and   e.数字 > d.数字 " & _
    "and   f.数字 > e.数字 " & _
    "order by a.数字, b.数字, c.数字, d.数字, e.数字, f.数字"
Sheets("结果").Range("a2").CopyFromRecordset cnn.Execute(Sql)
cnn.Close
End Sub

GG函数

我倒是有抽取指定个数的排列XLSM模板

grf1973

要用到递归的。