史上最酷的Excel VBA 组合算法代码

lcjy11185 · 发表于 2013-7-15 15:39

香川的最厉害，思维也是。

一直向前走 · 发表于 2013-7-15 15:58

好好学习，天天向上。二三天以内又有得活干了。。顶香川

Albert128 · 发表于 2013-7-17 16:44

香侠头脑灵活.只有佩服，望多一点实例讲解更好！

WebConNum · 发表于 2013-7-20 18:57

请教香川大师：

在你的“香川Do循环组合”中，如果要在输出结果加上分割符，如何做到？（菜鸟的问题肯定菜的，别笑哦...）

例如：原结果 “ABCD” ，加上分割符“+”后的结果： “A+B+C+D”

望大师赐教。

香川群子 · 发表于 2013-7-21 08:12

本帖最后由香川群子于 2013-7-21 08:19 编辑

WebConNum 发表于 2013-7-20 18:57
请教香川大师：

在你的“香川Do循环组合”中，如果要在输出结果加上分割符，如何做到？（菜鸟的问题肯定 ...

很简单。

1. 整理原始数据时，每个元素前加上分隔符号如 + 或 /
2. 组合代码不用改
3. 输出结果时改为： jg(k,1)=mid(s,2) 即把第一个多余的分隔符去掉。

代码如下：
原始数据加分隔符：
ReDim sj$(1 To m) '定义数组sj 写入统一字符长度的原始数据m个元素。定义为字符型数组可提高速
For i = 1 To m
sj(i) = "分隔符" & Right(s & sj0(i, 1), l) '原始数据调整至同样字符长度，并可在此处加上你想要的分隔符号
Next

然后要进行
l=l + len("分隔符"）处理。

这以后就是代码中输出部分改成：
jg(k, 1) = Mid(s,Len("分隔符")) '输出结果

WebConNum · 发表于 2013-7-21 16:50

香川大师：

根据你的方法，在原始数据前加分隔符，然后，再经mid(s,2)处理.是能够达到我想要的结果.谢谢大师!

不过,你下面的内容是啥意思呢?

sj(i) = "分隔符" & Right(s & sj0(i, 1), l) 这一改就不行了(结果只剩分隔符了,没有原始数据)

还有,再请教大师,如果原始数据不变,只在代码中修改,那达到我说的结果吗?

GHYZ · 发表于 2013-7-21 17:02

香川老师的最厉害，聪明过人，很是崇拜。

香川群子 · 发表于 2013-7-21 18:47

WebConNum 发表于 2013-7-21 16:50
香川大师：

根据你的方法，在原始数据前加分隔符，然后，再经mid(s,2)处理.是能够达到我想要的结果.谢谢 ...

我告诉你的这个就是在代码中直接增加分隔符的方法。

至于你为啥不成功，估计是字符长度处理的问题。

如果要我帮你确认，请上你的附件和代码。

WebConNum · 发表于 2013-7-21 19:39

香川大师：

在原始数据前加分隔符的方法是可以的,我已经试过了;

在代码中直接增加分隔符的方法,不知道我什么地方弄错了,测试不行.我现在把附近传上,请大师给看看.

香川群子 · 发表于 2013-7-21 20:11

B1单元格内写入组合抽取数
B2单元格内写入输出分隔符（可输入任意长度字符，如留空则相当于没有分隔符）

B3单元格在代码运行后写入组合结果总数
B4单元格在代码运行后写入组合计算耗时

		自动登录	找回密码
密码			免费注册

[原创] 史上最酷的Excel VBA 组合算法 代码

[原创] 史上最酷的Excel VBA 组合算法代码