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

chillerguy

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

phsu

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

doitbest

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

yjh_27

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

chillerguy

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

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

chillerguy

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

bluexuemei

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

复制代码

chillerguy

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

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

yjh_27

参见附件。

bluexuemei

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

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