列出 多 组 的 组

mrshz

       列出    多 组 的  组

liulang0808

不怕麻烦，就是多层for循环遍历处理

micch

这个方法比较另类，在运算量不大的情况下，可以用，因为调用了工作表函数，如果运算量大就算了

1. Sub MainC()
   
2.     ar = [a1].CurrentRegion
   
3.     ar = Application.Transpose(ar)
   
4.     n = UBound(ar)   '---总n个
   
5.     m = [e2]   '---选m个
   
6.     GetBase ar, n, m
   
7. End Sub
   
8. Function GetBase(ar, n, m)
   
9.     Set obj = Application.WorksheetFunction
   
10.     k = obj.Combin(n, m)
    
11.     ReDim br(k * 100, 0)
    
12.     i = 0: k = 0
    
13.     Do
    
14.         x = obj.Base(i, 2, n)
    
15.         If Len(Replace(x, 0, "")) = m Then
    
16.             For j = 1 To n
    
17.                 l = Mid(x, j, 1)
    
18.                 If l = "1" Then
    
19.                 br(k, 0) = br(k, 0) & "," & ar(j)
    
20.                 End If
    
21.             Next
    
22.                 br(k, 0) = Mid(br(k, 0), 2)
    
23.                 k = k + 1
    
24.         End If
    
25.         i = i + 1
    
26.     Loop Until Len(x) > n
    
27.     [g:g].Clear
    
28.     [g1].Resize(k) = br
    
29. End Function

复制代码

mrshz

micch 发表于 2023-1-5 07:10
这个方法比较另类，在运算量不大的情况下，可以用，因为调用了工作表函数，如果运算量大就算了

x = obj.Base(i, 2, n) 这句有问题

jsgj2023

附件供参考!

薛定谔233

vba组合函数，参考：https://blog.csdn.net/hhhhh_51/article/details/124577302

mrshz

jsgj2023 发表于 2023-1-5 12:31
附件供参考!

谢谢     结果不对