vba数组，组合

哦哈尼哈尼

把选号表格中的六行组合成组合表格那样
每一组都是不能有重复数字，并按行1 2 3 4 5 6的方式从小到大组合

香川群子

还好，运行了一下没死机。

现在的结果是：
1. 多列组合 排除组合内数字重复 如 2,3,4,8,16,16
2. 从小到大排序 如 6,4,11,10,17,15 改为 4,6,10,11,15,17 后输出
3. 用字典排除重复的组合。

zhouzhongchi

这个问题最好请教“香川群子"老师，排序、组合等方面的权威

香川群子

问题不难，属于典型的【香川多列组合】

但是，你现在6行14列元素的组合，总数=14^6=7,529,536 即750多万……比33选6的组合结果还要多。

其中会有大量的重复。
如果要求每一个组合中的6个数字从小到大排序，然后排除重复……估计最后结果也就是回到Combin(33,6)=1,107,568 这么多了。

所以，你的要求毫无意义。

香川群子

如果从小到大排序，那么只有 4,665,702 即467万个组合。（含重复）

香川群子

代码是简单的，但这么750多万个巨量的组合，输出成了问题……一般会死机吧。


原始数据应该转置为14行6列。
行数可以任意增减，每一列中元素个数可以不同（末尾可以是任意数量的空白单元格）

1. Dim sj, jg(), a(1 To 33), d, m&, n&, k&, tms#
   
2. Sub MultiCombin() '香川多列组合
   
3.     tms = Timer
   
4.     sj = [a1].CurrentRegion '读入多行6列数据
   
5.    
   
6.     m = UBound(sj): n = UBound(sj, 2) '读取最大行数m、总列数n(=6)
   
7.    
   
8.     Set d = CreateObject("Scripting.Dictionary") '设置字典排除重复
   
9.     Open ActiveWorkbook.Path & "\Result.txt" For Output As #1 '输出组合结果到Txt文件 (输出到工作表会死机)
   
10.     k = 0: Call dgMN(1) '调用递归过程
    
11.     Close #1 '关闭Txt文件
    
12.    
    
13.     Application.StatusBar = Format(Timer - tms, "0.0s ") & d.Count & "/" & k
    
14.     MsgBox Format(Timer - tms, "0.00s ") & d.Count & "/" & k '运行结束，提醒程序耗时、排序后字典中不重复组合数 / 组内不重复组合总数
    
15. End Sub
    
16. 
    
17. Sub dgMN(j&)
    
18.     Dim i&
    
19.     For i = 1 To m '遍历各行
    
20.         t = sj(i, j): If t = "" Then Exit For '到本列末尾空白时退出
    
21.         If a(t) = "" Then '如该元素状态为空 则可以提取组合
    
22.             a(t) = t
    
23.             If j < n Then
    
24.                 Call dgMN(j + 1)
    
25.             Else
    
26.                 k = k + 1: s2 = WorksheetFunction.Trim(Join(a)) '提取从小到大排序的组合结果
    
27.                 If Not d.Exists(s2) Then d(s2) = "": Print #1, s2 '用字典排除重复 然后输出到Txt文件
    
28.                 If k Mod 10000 = 0 Then Application.StatusBar = Format(Timer - tms, "0.0s ") & d.Count & "/" & k & "..." & s
    
29.                 DoEvents '每1万个组合 在状态栏上更新显示进度
    
30.             End If
    
31.             a(t) = ""
    
32.         End If
    
33.     Next
    
34. End Sub
    

复制代码

哦哈尼哈尼

香川群子 发表于 2015-9-19 22:04
问题不难，属于典型的【香川多列组合】

但是，你现在6行14列元素的组合，总数=14^6=7,529,536 即750多万 ...

呵呵。我这个就是彩票的，所以还想要增加个缩水的和定胆的

哦哈尼哈尼

香川群子 发表于 2015-9-19 22:59
还好，运行了一下没死机。

现在的结果是：

可以在此基础上帮我增加几个缩水条件吗。1，胆码组：由1到33个红球号码组成，选择一组用户认为要出现的号码，并设置要出现的个数，组合起来确定出号条件。2＼红球和值范围例（21到183）　３＼定位和尾（１到10个）４＼红球第一位和第六位的差（１到10个）5、AC值（１到11个）

qx-liuwx

学习买彩票，谢谢！

垣佩龙

香川群子 发表于 2015-9-19 22:25
代码是简单的，但这么750多万个巨量的组合，输出成了问题……一般会死机吧。

老师你好，我不需要排除重复的话应该怎么写？