任意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

高个子

你应该去VBA版块问，并且上传附件

qwbz19

高个子 发表于 2023-4-3 10:38
你应该去VBA版块问，并且上传附件

哦，好

袁勇

根据要求增减条件即可。但要注意组合个数不能超过excel的最大行数。

橒♂蝣

这应该是VBA题

sucx007

1. 递归写法，定义名称fx=LAMBDA(c,n,IF(n=1,c,IF(COUNTA(c)=n,TEXTJOIN("-",,c),VSTACK(INDEX(c,1,1)&"-"&fx(DROP(c,1),n-1),fx(DROP(c,1),n)))))

复制代码

365函数

渡渡orz

衍生出一个问题，数据源多少个时，排列组合个数可能会超过excel最大行数

ifan0916

1 2 3 4 5 6 7 8 和 2 3 4 5 6 7 8 1 算1种还是各算1种，也就是算组合还是排列？