求助老师，excel如何生成数字组合？

zhaojh95

比如我要生成1到20里面任意三个数字的组合，组合里的数字不重复，能做到吗？

edwin11891

看看超人版主的专辑，里面有专门分析这个问题。
20选3，组合数是COMBINE(20,3)=1140种。
直接套用超版的公式（之一）：

1. =LET(fx,LAMBDA(m,n,IF(n=1,m,IF(ROWS(m)=n,TOROW(m),VSTACK(IFNA(HSTACK(@m,fx(DROP(m,1),n-1)),@m),fx(DROP(m,1),n))))),fx(SEQUENCE(20),3))

复制代码

edwin11891

如果版本太低，搜一下“世界客都”老师的帖子，有专门讨论过另外一种方法。

leepoison

=WRAPROWS(UNIQUE(MAP(LET(b,20,a,TOCOL(TOCOL(MAKEARRAY(b,b,LAMBDA(x,y,IF(x<y,x&","&y,\))),3)&","&SEQUENCE(,b)),FILTER(a,MAP(a,LAMBDA(z,COUNTA(UNIQUE(TEXTSPLIT(z,,",")))))=3)),LAMBDA(c,TEXTJOIN(",",1,SORT(REGEXP(c,"\d+"),,,1))))),20)

gwjkkkkk

低版本，VBA法，请参考

gwjkkkkk

Option Explicit
Sub test()
    Dim i&, dr(), er(), vResult(), t#, r&
   
    t = Timer
    ReDim dr(1 To 20)
    For i = 1 To UBound(dr): dr(i) = i: Next
   
    ReDim er(1 To 3)
    ReDim vResult(1 To WorksheetFunction.Combin(UBound(dr), 3), 1 To 3)
    combinArr dr, er, vResult, 3, r

    [E1].CurrentRegion.Clear
    With [E1].Resize(UBound(vResult), 3)
        .Value = vResult
        .EntireColumn.AutoFit
    End With
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒,共发现 " & UBound(vResult) & " 组组合", 64
End Sub
Function combinArr(ByRef ar(), ByRef br(), ByRef cr(), ByVal n&, Optional _
    ByRef iGroup&, Optional ByVal iStart&, Optional ByVal iNum& = 1)
    Dim i&, j&
    For i = iStart + 1 To UBound(ar) - n + iNum
        If iNum < n Then
           br(iNum) = ar(i)
           Call combinArr(ar, br, cr, n, iGroup, i, iNum + 1)
        Else
           br(iNum) = ar(i)
           iGroup = iGroup + 1
           For j = 1 To n
              cr(iGroup, j) = br(j)
           Next
        End If
    Next
End Function

zhaojh95

leepoison 发表于 2025-4-14 19:12
=WRAPROWS(UNIQUE(MAP(LET(b,20,a,TOCOL(TOCOL(MAKEARRAY(b,b,LAMBDA(x,y,IF(x

谢谢，这个公式真接复制到任意单元格就行了吗？我是excel365

zhaojh95

gwjkkkkk 发表于 2025-4-14 19:52
低版本，VBA法，请参考

谢谢你呀！！！

飞天篮球猪

仅供参考...

zhaojh95

飞天篮球猪 发表于 2025-4-14 20:21
仅供参考...

太感谢啦，怎么我输入公式 显示 name?