生成Combin组合

白玮

请问A列有42个数字,如何排列出所有有可能的组合.(每组由5个数字组成)

蓝桥玄霜

建议搜索香川群子的帖子。

dyp1610

排上五层循环

bluexuemei

1. Sub bxm组合()
   
2. t = Timer
   
3. Dim brr()
   
4. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
5. ojs.eval "function aa(bb){return aa=bb.toArray();}"
   
6. y = ojs.Run("aa", Range("a1", [a1].End(4)).Value)
   
7. y = ojs.eval("function combine(a, m){" _
   
8.         & "var t = [[]], r = [];" _
   
9.         & "for (var i = 0, n = a.length; i < n; i++) {" _
   
10.             & "for (var j = 0, k = t.length; j < k; j++) {" _
    
11.                & " var s = t[j].concat([a[i]]);" _
    
12.                 & "s.length < m ? t.push(s) : r.push(s);" _
    
13.             & "}" _
    
14.         & "}" _
    
15.         & "return r;" _
    
16.     & "};combine(aa,5).join(' ')")
    
17. arr = Split(y, " ")
    
18. ReDim Preserve brr(0 To UBound(arr), 1 To 1)
    
19. For i = 0 To UBound(arr)
    
20.   brr(i, 1) = arr(i)
    
21. Next
    
22. [m1].Resize(UBound(arr) + 1, 1) = brr
    
23. Set ojs = Nothing
    
24. MsgBox Timer - t
    
25. Stop
    
26. End Sub

复制代码

百度不到去谷歌

组合帖子茫茫多 怎么不好好搜一下
看我的帖子吧 一共有850668 03xls放不下 采取分列输出了
http://club.excelhome.net/thread-1107453-1-1.html
数据太大 我就发一个清空数据的 你打开点按钮就看得到结果了
1VBA - 通用组合工具.rar (39.25 KB, 下载次数: 69)

2014-5-5 20:01 上传

点击文件名下载附件

张雄友

百度不到去谷歌 发表于 2014-5-5 20:01
组合帖子茫茫多 怎么不好好搜一下
看我的帖子吧 一共有850668 03xls放不下 采取分列输出了
http://club.e ...

多列输出时，怎么不是先输出到最大行数时，再另起列输出？

百度不到去谷歌

张雄友 发表于 2014-5-6 08:06
多列输出时，怎么不是先输出到最大行数时，再另起列输出？

不是   我这个是采取的按序号 1开头的 2开头的 3开头的 这样比较整齐
你要输出到最大行再另起 直接把结果数组按最大行循环分列就行了

香川群子

楼主重复发帖了。

因为楼主是固定要求的组合，所以不需要考虑通用型组合代码，直接5层循环即可。

但必须用Excel 2007以上版本。

1. Sub Combin_5()
   
2.   Dim k&, m&, n&, tms#
   
3.   tms = Timer
   
4.   n = 5: m = 42
   
5.   k = WorksheetFunction.Combin(m, n)
   
6.   ReDim jg(1 To k, 1 To n): k = 0
   
7.   
   
8.   Dim i1&, i2&, i3&, i4&, i5&
   
9.   For i1 = 1 To m - 4
   
10.   For i2 = i1 + 1 To m - 3
    
11.   For i3 = i2 + 1 To m - 2
    
12.   For i4 = i3 + 1 To m - 1
    
13.   For i5 = i4 + 1 To m - 0
    
14.     k = k + 1
    
15.     jg(k, 1) = i1: jg(k, 2) = i2: jg(k, 3) = i3: jg(k, 4) = i4: jg(k, 5) = i5
    
16.   Next i5, i4, i3, i2, i1
    
17.   MsgBox Format(Timer - tms, "0.000s ") & k
    
18.   
    
19.   [a1].Resize(k, n) = jg
    
20. End Sub

复制代码

香川群子

蓝桥玄霜 发表于 2014-5-5 17:06
建议搜索香川群子的帖子。

给大家一个按需求自动生成【多层循环组合计算代码】的代码生成器代码：http://club.excelhome.net/forum.php?mod=viewthread&tid=1118796&extra=

Sub 生成多层循环组合代码()
   
    n = Val(InputBox("抽取个数 n =", "多层循环组合代码", [b1]))
    '输入n、或提取B1单元格中数字作为组合数n
    If n = 0 Then Exit Sub Else [b1] = n
    m = Val(InputBox("组合对象元素个数 m =", "多层循环组合代码", IIf([a2] = "", [a1], [a1].End(4).Row)))
    '输入m、或按A列元素个数m、或提取A1单元格中的数字作为组合元素总数m
    If m >= n Then k = WorksheetFunction.Combin(m, n): MsgBox "组合结果总数 = " & k
   
    …………

在生成代码的同时，还会自动生成一个可执行按钮。