写出从7个元素中任取N个的全部可能

天地一相

感谢帮助。详见截图附件。

yjh_27

1. Sub aa()
   
2. j = 0
   
3. For i = 2 To 7
   
4. brr = ArrCP0(7, i, 41, 1, 1)
   
5. Range("A5").Resize(1, UBound(brr)).Offset(0, j) = WorksheetFunction.Transpose(brr) '输出
   
6. j = j + UBound(brr)
   
7. Next
   
8. End Sub
   

复制代码

自定义函数 见


n取m 自定义函数 随机 组合 排列 分组 分配
https://club.excelhome.net/thread-1526867-1-1.html
(出处: ExcelHome技术论坛)

dambcer

这是有多无聊，搞这些

gwjkkkkk

Option Explicit
Sub test()
    Dim i&, j&, ar(), dr(), er(), vResult(), r, t#
   
    t = Timer
    ReDim dr(1 To 7)
    For i = 1 To 7
        dr(i) = i
    Next i
   
    For i = 2 To UBound(dr)
        ReDim er(1 To i)
        ReDim vResult(1 To WorksheetFunction.Combin(UBound(dr), i))
        combinArr dr, er, vResult, i
        For j = 1 To UBound(vResult)
            r = r + 1
            ReDim Preserve ar(1 To r)
            ar(r) = vResult(j)
        Next j
    Next i

    Rows(5).Clear
    [A5].Resize(, UBound(ar)) = ar
  
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒,共发现 " & r & " 组", 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
           cr(iGroup) = Join(br, "")
        End If
    Next
End Function

gwjkkkkk

请参考。。。

天地一相

gwjkkkkk 发表于 2024-6-27 19:52
请参考。。。

谢谢，牛！看了你的代码，我的就笨死了。我是用5个循环解决的（5种取法）。

天地一相

时间的音符 发表于 2024-6-27 19:47
...................

看不懂了，给个附件瞅瞅呀

静听溪流

感觉和这个有点类似

1. https://club.excelhome.net/thread-1607654-1-1.html?_dsign=1eb6babf

复制代码

今铭昔