自定义序列过多无法自动排序问题的解决

chillerguy · 发表于 2015-5-17 22:00

自定义序列有426行，自定义程序无法运行下去，不知道有没有办法突破限制？

phsu · 发表于 2015-5-17 22:33

是否有使用到工作表的列﹖在EXCEL 2003﹐工作表只有256列。若是因此而產生錯誤﹐只能改成2007以後的版本處理。

doitbest · 发表于 2015-5-18 10:56

用match(查找值，自定义序列区域，0）生成辅助列，再按辅助列排序

yjh_27 · 发表于 2015-5-18 19:49

多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html
(出处: ExcelHome技术论坛)

chillerguy · 发表于 2015-5-18 22:10

doitbest 发表于 2015-5-18 10:56
用match(查找值，自定义序列区域，0）生成辅助列，再按辅助列排序

这个法子很好用，多谢了。
但我想要VBA一下子排出来，不知道有没有什么好方法。

chillerguy · 发表于 2015-5-18 22:16

附件是需要排序的表格。求代码！

bluexuemei · 发表于 2015-5-18 22:32

Sub test()
'需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
ojs.eval ("def aa(aa,bb);$aa=aa;$bb=bb.flatten;end")
y = ojs.Run("aa", Sheet6.Range("b2:h" & Sheet6.[b2].End(4).Row).Value, Sheet7.Range("a2:a" & Sheet7.[a65536].End(3).Row).Value)
y = ojs.eval("$aa.sort_by{|x|$bb.index(x[0])}")
Sheet6.[b2].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
'Stop
End Sub

复制代码

chillerguy · 发表于 2015-5-19 09:32

bluexuemei 发表于 2015-5-18 22:32

很神奇，真的好用。虽然看不懂！
大神能不能解释一下。

yjh_27 · 发表于 2015-5-19 11:35

参见附件。

bluexuemei · 发表于 2015-5-19 11:52

chillerguy 发表于 2015-5-19 09:32
很神奇，真的好用。虽然看不懂！
大神能不能解释一下。

这个是RUBY语言，你需要有一定的基础才能看懂。

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

[求助] 自定义序列过多无法自动排序问题的解决