计算单元格内字符串(组合)的所有排列

￡Ulikeme · 发表于 2014-12-14 12:50

本帖最后由￡Ulikeme 于 2014-12-14 12:56 编辑

计算单元格内字符串(组合)对应的所有排列
组合：不区分先后顺序。即123、132、213、231、312、321都一样
排列：区分先后顺序。即123、132、213、231、312、321不一样

注意：当字符串中含有0的时候，数字0，不能作为排列的第一个字符
比如：A012，则排列0A12、0A21、01A2、012A........这种类型的排列需剔除，保留A、1、2开头的排列！

QQ截图20141214123805.png

Book1.rar (6.75 KB, 下载次数: 21)

bluexuemei · 发表于 2014-12-14 13:21

本帖最后由 bluexuemei 于 2014-12-14 14:23 编辑

Sub test()
'需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
Dim oJs As Object, y, rng As Range
Set oJs = CreateObject("ScriptControl"): oJs.Language = "RubyScript"
For Each rng In Range("a2", [a2].End(4))
y = oJs.eval("a='" & rng.Value & "'.chars;a.permutation.map(&:to_a).reject{|x|x[0]=='0'}.map(&:join)")
rng(1, 2).Resize(1, UBound(y) + 1) = y
Next
Set oJs = Nothing
'Stop
End Sub

复制代码

￡Ulikeme · 发表于 2014-12-14 14:21

bluexuemei 发表于 2014-12-14 13:21

老师，不知道是我运行错误，还是，略有问题，运行时候出错了，请老师指点

QQ截图20141214141842.png

￡Ulikeme · 发表于 2014-12-14 15:27

有没有更好的方法呢？

￡Ulikeme · 发表于 2014-12-14 15:33

bluexuemei 发表于 2014-12-14 13:21

谢谢您的帮助，今天鲜花已散尽，明日散花

yjh_27 · 发表于 2014-12-14 16:08

参见附件。

￡Ulikeme · 发表于 2014-12-14 17:42

本帖最后由￡Ulikeme 于 2014-12-14 17:43 编辑

yjh_27 发表于 2014-12-14 16:08
参见附件。

感觉很复杂，也很难啊，可能是我学识浅薄，感觉没有2楼的好啊

yjh_27 · 发表于 2014-12-14 18:00

本帖最后由 yjh_27 于 2014-12-14 18:02 编辑

￡Ulikeme 发表于 2014-12-14 17:42
感觉很复杂，也很难啊，可能是我学识浅薄，感觉没有2楼的好啊

你要求只用一个VBA函数（自定义函数）
2L的不是。我的是自定义（数组）函数。

你感觉哪个好，用哪个。

￡Ulikeme · 发表于 2014-12-14 20:13

yjh_27 发表于 2014-12-14 18:00
你要求只用一个VBA函数（自定义函数）
2L的不是。我的是自定义（数组）函数。

哦哦，但不知道怎么你的我不能运行，只看了你的VBA函数

yjh_27 · 发表于 2014-12-14 21:25

￡Ulikeme 发表于 2014-12-14 20:13
哦哦，但不知道怎么你的我不能运行，只看了你的VBA函数

要二个模块的代码都复制过去

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

[求助] 计算单元格内字符串(组合)的所有排列

评分

点评

评分

评分

评分