VBA中字典数据的排序

小花鹿

选中单元格排序，与其它单元格没关系

hhjjpp

bluexuemei 发表于 2014-3-13 14:56
排序不难，给你一个例子

ruby就这么轻描淡写地排序了？

fxl447098457

hhjjpp 发表于 2016-11-11 10:19
ruby就这么轻描淡写地排序了？

这个的确可以对字典排序，我试了一下

fxl447098457

fxl447098457 发表于 2016-11-11 12:52
这个的确可以对字典排序，我试了一下

他这个的确可以排序的，我试了下。下面这个例子对数组ar去重后排序。利用了字典，最后得到的字符串arr1就是升序排序的字符串了,split就可回到数组了(这步我就没写了）
Sub t()
Dim d As Object, Ojs As Object
Set d = VBA.CreateObject("scripting.dictionary")
ar = [{3,6,8,6,3,7,5,8,3}]
For i = 1 To UBound(ar)
d(ar(i)) = ""
Next
Set Ojs = CreateObject("scriptcontrol")
Ojs.Language = "jscript"
arr1 = Ojs.eval("[" & Join(d.keys, ",") & "].sort()")
End Sub

东亚五金

fxl447098457 发表于 2016-11-11 12:57
他这个的确可以排序的，我试了下。下面这个例子对数组ar去重后排序。利用了字典，最后得到的字符串arr1就 ...

试了试 对汉字不行

wzsy2_mrf

直接调用排序程序对关键字数组进行排序后输出就可以了。

fxl447098457

东亚五金 发表于 2016-11-11 13:50
试了试 对汉字不行

试试结果。看图说话

1. Sub test()
   
2. 
   
3. Dim d As Object, Ar, i As Integer
   
4. 
   
5. Dim Ojs As Object, Arr1
   
6. 
   
7. Set d = VBA.CreateObject("scripting.dictionary")
   
8. 
   
9. Ar = [{"我",6,8,6,"你",7,"欣慰",8,3}]
   
10. 
    
11. For i = 1 To UBound(Ar)
    
12. 
    
13. d(Ar(i)) = ""
    
14. 
    
15. Next
    
16. Set Ojs = CreateObject("scriptcontrol")
    
17. 
    
18. Ojs.Language = "JScript"
    
19. 
    
20. Arr1 = Split(Ojs.eval("[""" & Join(d.keys, """, """) & """].sort()"), ",")
    
21. Stop
    
22. End Sub

复制代码

东亚五金

一直对VBA排序迷糊,学习了

cczjw

fxl447098457 发表于 2016-11-11 14:17
试试结果。看图说话

请教 ar 是二维数组程序该怎样改写？谢谢！

秋枫

直接调用excel的排序命令啊。