求排列组合结果的自定义函数

香川群子

2013年最新研究成果：

世上最快速度的Excel VBA 组合算法核心部分：

1. Function CombinDo(ByVal m&, ByVal n&)
   
2.     Dim i&, j&, k&
   
3.     tms = Timer
   
4. 
   
5.     ReDim a&(1 To n)
   
6.     For j = 1 To n - 1
   
7.         a(j) = j
   
8.     Next
   
9.    
   
10.     k = 0: i = n - 1 ': j = n
    
11.     Do
    
12.         For i = i + 1 To m
    
13. '            a(j) = i
    
14.             k = k + 1
    
15.         Next
    
16.         
    
17.         For j = j - 1 To 1 Step -1
    
18.             i = a(j) + 1: a(j) = i
    
19.             If i = m - n + j Then
    
20.                 k = k + 1
    
21.             Else
    
22.                 j = j + 1
    
23.                 Do Until j = n
    
24.                     i = i + 1: a(j) = i: j = j + 1
    
25.                 Loop
    
26.                 If i = m Then Exit Do Else Exit For
    
27.             End If
    
28.         Next
    
29.     Loop Until j = 0
    
30.    
    
31.     CombinDo = Format(Timer - tms, "0.000s ") & k
    
32. End Function

复制代码

计算下面1千万的组合只要1.723秒。（我这用的是低配置电脑）
1.723s  Combin(26,13)= 10400600

香川群子

使用最快组合算法代码的各种输出结果方法应用：

比较发现，用字符串Mid置换法速度最快。

而按多列输出数组结果的方法最慢。

老谭酸菜

香川群子 发表于 2011-6-23 08:00
求任意序号位置组合结果的自定义函数也已经编写好了：

够强大，正是我想要的！找了好多天原来在这里。

不过美中不足的是这个函数和EXCEL结合得太紧密了，我得把它改造一下，以便具有可移植性。将来可以用到VB和其他语言上啦！{:soso_e128:}

先收藏拷贝了！

谢过楼主，我们的侠女群子老师！{:soso_e113:}

老谭酸菜

香川群子 发表于 2013-9-17 14:23
2013年最新研究成果：

世上最快速度的Excel VBA 组合算法核心部分：计算下面1千万的组合只要1.723秒。（ ...

肯定不是世界上最快的啦！

香川群子

老谭酸菜 发表于 2013-9-17 15:12
肯定不是世界上最快的啦！

不是世界上最快的……

但是，是世界上Excel VBA 代码算法中最快的。目前没有发现比我更快的算法代码。

香川群子

组合算法的汇总

老谭酸菜

香川群子 发表于 2013-9-17 16:10
不是世界上最快的……

但是，是世界上Excel VBA 代码算法中最快的。目前没有发现比我更快的算法代码。 ...

果然思维严密！俺没话说了。

老谭酸菜

只是有点担心微软将来直接内置排列组合的函数。来和你抢世界第一的宝座！{:soso_e113:}

老谭酸菜

还有，俺准备改造你的函数。它和EXCEL走的太近了，我不喜欢。{:soso_e113:}

aoe1981

香川群子 发表于 2011-6-23 08:00
求任意序号位置组合结果的自定义函数也已经编写好了：

combin在ＶＢＡ中不能直接使用啊，学习了，这会用到了这个，才发现的……