老师们好，求助关于排序出错

活在理想的世界

asd1220 发表于 2018-6-25 09:13
学习了，感谢老师指点迷津！

最好的排序是SQL里面的ORDER BY DESC & ASC

数组排序我已经不用了，我也不建议你用，数据一多基本就废了。

当然Excel自带的Sort也行，不过必须先赋值在排序。
Sort手写一般这样就够了。
Range("A1").Sort Range("I1"), xlAscending, , , , , , xlYes

asd1220

活在理想的世界 发表于 2018-6-25 09:16
最好的排序是SQL里面的ORDER BY DESC & ASC

数组排序我已经不用了，我也不建议你用，数据一多基本就废 ...

感谢老师指点！

但是可能因为表头里面有合并单元格的缘故
使用您的代码后提示要求单元格要相同大小
即使我把Range("A1").Sort Range("I1"), xlAscending, , , , , , xlYes改成Range("A3").Sort Range("I3"), xlAscending, , , , , , xlYes也不行

活在理想的世界

asd1220 发表于 2018-6-25 09:32
感谢老师指点！

但是可能因为表头里面有合并单元格的缘故

所以我告诉你不能排序呀，如果表头规范就没问题了。

活在理想的世界

asd1220 发表于 2018-6-25 09:32
感谢老师指点！

但是可能因为表头里面有合并单元格的缘故

我给你的这个是手写代码，你自己的那是录制代码，录制代码基本上废话较多，废话多就不容易看懂。我的代码是最简洁的，excel的Sort排序（单条件）就是这样排。

asd1220

活在理想的世界 发表于 2018-6-25 09:36
我给你的这个是手写代码，你自己的那是录制代码，录制代码基本上废话较多，废话多就不容易看懂。我的代码 ...

明白您的意思了，感谢您的指点！

duquancai

asd1220 发表于 2018-6-25 08:47
谢谢老师关注，是录的宏，我已经把想要表达意思的附件上传了

就是按照I列排序

根据“I”列 升序，请测试：

1. Sub main()
   
2.     Dim r&, js As Object
   
3.     r = Cells(Rows.Count, 1).End(3).Row - 2
   
4.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
5.     js.Language = "JavaScript": js.AddObject "rg", Range("a3")
   
6.     js.AddCode "r=" & r & ";a=[];for(i=0;i<r;i++){a[i]=[];for(j=0;j<16;j++){a[i][j]=rg(i+1,j+1).value;};};"
   
7.     js.eval("a.sort(function(x, y){return x[8]-y[8]});for(i=0;i<r;i++){for(j=0;j<16;j++){rg(i+1,j+1)=a[i][j];};};")
   
8.     MsgBox "OK!"
   
9. End Sub

复制代码

YZC51

请参考
Sub Macro5()
m = Cells(Rows.Count, 1).End(xlUp).Row
[a3].Resize(m, 17).Sort [I3], , , , , , 1
End Sub

asd1220

YZC51 发表于 2018-6-26 04:38
请参考
Sub Macro5()
m = Cells(Rows.Count, 1).End(xlUp).Row

感谢老师指点迷津！

asd1220

duquancai 发表于 2018-6-25 20:34
根据“I”列 升序，请测试：

感谢老师提供新的解决思路！

只是不是很懂js的代码，正在研究中，如果老师愿意的话能对代码做下批注就更好了，谢谢！