请教按定好的次序排序代码怎么写

chxw68

使用字典不借助辅助列对已有数组进行排序。

Vicel

鄂龙蒙 发表于 2015-5-10 22:25
谢谢您的帮助!
再请教:在输出前,数组的首列就是"省别"直接在数组里排序的代码怎么写?

请测试

1. Sub test()
   
2.     Dim d As Object, ar, br(), i&, j&
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With Sheets("顺序")
   
5.         ar = .Range("B3:C" & .[B65536].End(xlUp).Row)
   
6.     End With
   
7.     For i = 1 To UBound(ar)
   
8.         d(ar(i, 2)) = ar(i, 1)
   
9.     Next i
   
10.     With Sheets("年度汇总")
    
11.         ar = .[B3].CurrentRegion.Offset(1)
    
12.         ReDim br(1 To UBound(ar) - 1, 1 To UBound(ar, 2))
    
13.         For j = 1 To UBound(ar, 2)
    
14.             br(1, j) = ar(1, j)
    
15.             br(UBound(br), j) = ar(UBound(br), j)
    
16.         Next j
    
17.         For i = 2 To UBound(br) - 1
    
18.             br(i, 1) = ar(i, 1)
    
19.             If d.exists(ar(i, 2)) Then
    
20.                 For j = 2 To UBound(br, 2)
    
21.                     br(d(ar(i, 2)) + 1, j) = ar(i, j)
    
22.                 Next j
    
23.             End If
    
24.         Next i
    
25.         .[B3].Resize(UBound(br), UBound(br, 2)) = br
    
26.     End With
    
27.     Set d = Nothing
    
28. End Sub
    

复制代码

按指定的次序排序.zip (13.54 KB, 下载次数: 20)

2015-5-10 23:08 上传

点击文件名下载附件

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", Sheet4.Range("b3:i" & Sheet4.[b3].End(4).Row).Value, Sheet3.Range("c3:c" & Sheet3.[c3].End(4).Row).Value)
   
6. y = ojs.eval("$aa[1..-2]=$aa[1..-2].sort_by{|x|$bb.index(x[1])}.map.with_index(1){|a,i|[i]+a[1..-1]};$aa")
   
7. Sheet4.[k3].Resize(UBound(y) + 1, UBound(y, 2) + 1) = y
   
8. 'Stop
   
9. End Sub
   
10. 
    

复制代码

shdabai

值得拥有222222222222

学生甲1

chxw68 发表于 2015-5-10 21:49
用ADO也能排序。

在下一点拙见，这样会更简单一些。
sql = "select a.* from [年度汇总$b3:i] a right join [顺序$b2:c] b on a.省别=b.省份"