[讨论]多列中查找重复值的最优方案

aidixiao · 发表于 2010-5-20 22:45

用ruby做了一个，算法简洁，速度还可以接受，0.45s.
Sub RUBY()
'须安装ACTIVERUBY.才能运行
'下载地址 http://www.artonx.org/data/asr/ActiveRuby.msi
Dim a, b, c
t = Timer
Application.ScreenUpdating = False

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
a = Application.Transpose([a1:a60000])
b = Application.Transpose([b1:b60000])
c = Application.Transpose([c1:c60000])

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("def test(a,b,c) a & b & c end;")
y = x.Run("test", a, b, c)
aa = UBound(y) + 1
[d1].Resize(aa) = Application.Transpose(y)

Application.ScreenUpdating = ture
t = Timer - t
MsgBox t

End Sub

[ 本帖最后由 aidixiao 于 2010-5-20 22:46 编辑 ]

高玉甫 · 发表于 2010-5-20 23:23

这段代码特别好，谢谢了。

高玉甫 · 发表于 2010-5-20 23:28

您的代码查找起来要快些，谢谢您。

cjh-01 · 发表于 2010-10-6 08:32

狼版主,能把你11楼的代码注释一下吗?太高深了.

wj2368 · 发表于 2010-10-6 10:05

原帖由 northwolves 于 2007-10-25 22:00 发表
仍有提速空间:Sub macro1()Dim arr, i As Long, j As Long, n As Long, b(1000000) As Long, t As SingleApplication.ScreenUpdating = Falsearr = [A1:C60000].Valuet = TimerFor i = 1 To 60000b(arr(i, 1)) = 1Ne ...

Sub macro2的结果中还有相同数

hanter007 · 发表于 2010-10-6 10:36

没看完帖子吧..狼版在26楼已经更正过了.

laosanjie · 发表于 2011-5-10 10:53

八仙过海各显神通！这个帖子太精彩了！！！

AVEL · 发表于 2012-6-24 15:44

这个值得学习。。收了

sanculans · 发表于 2012-9-19 20:50

呵呵，遇到需要，又来学习了！内容精彩，时间仓促，一时半会儿消化不良了，想要化为己用还需时日啊

ml666 · 发表于 2012-12-20 23:39

太强了！！！

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

[讨论]多列中查找重复值的最优方案

回复 5楼 oobird 的帖子

回复 11楼 northwolves 的帖子

回复 65楼 wj2368 的帖子