怎么用VBA获取excell中的指定规则来排序

bluexuemei

1. Sub t()
   
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", Sheet1.Range("A2", Sheet1.[c2].End(4)).Value, Sheet2.[b1:b3].Value)
   
6. y = ojs.eval("$aa.sort_by{|x|[$bb.index(x[0]),x[1]]}")
   
7. Sheet1.[a2].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
   
8. Set ojs = Nothing
   
9. 'Stop
   
10. End Sub

复制代码

按C列数字大小排

1. Sub t()
   
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", Sheet4.Range("A2", Sheet4.[c2].End(4)).Value, Sheet2.[b1:b3].Value)
   
6. y = ojs.eval("$aa.sort_by{|x|[$bb.index(x[0]),x[2]]}")
   
7. Sheet1.[a2].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
   
8. Set ojs = Nothing
   
9. 'Stop
   
10. End Sub
    

复制代码

walle666

学习了，谢谢