[已解决]请问!能不能对字典内的元素排序?

hcy1185

请问!能不能对字典内的元素排序?
我字典元素有2013,2010,2004,2014,2006,2005,2011,2012,
能不能把d.keys排序后再写入单元格?

最佳答案

月排行榜 / 总排行榜

易安1

2014-11-17 09:25

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Array(3, 1, 2, 9, 8, 7, 6, 10, 11)
   
4.     For i = 0 To UBound(arr)
   
5.         d(arr(i)) = ""
   
6.     Next
   
7.     br = d.keys
   
8.     On Error Resume Next
   
9.     For k = 0 To UBound(br)
   
10.         If br(k) >= br(k + 1) Then
    
11.             n = br(k)
    
12.             br(k) = br(k + 1)
    
13.             br(k + 1) = n
    
14.         End If
    
15.     Next
    
16.     MsgBox Join(br, "-")
    
17. End Sub
    

复制代码

test了一下 自己看看吧！
冒泡排序 排序方法大概有10中左右，自己简单学习一下

跳转到最佳答案楼层

易安1

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Array(3, 1, 2, 9, 8, 7, 6, 10, 11)
   
4.     For i = 0 To UBound(arr)
   
5.         d(arr(i)) = ""
   
6.     Next
   
7.     br = d.keys
   
8.     On Error Resume Next
   
9.     For k = 0 To UBound(br)
   
10.         If br(k) >= br(k + 1) Then
    
11.             n = br(k)
    
12.             br(k) = br(k + 1)
    
13.             br(k + 1) = n
    
14.         End If
    
15.     Next
    
16.     MsgBox Join(br, "-")
    
17. End Sub
    

复制代码

test了一下 自己看看吧！
冒泡排序 排序方法大概有10中左右，自己简单学习一下

鼻涕可长了

字典找数据本来就方便，所以字典不需要排序。
如果字典一定要排序的话，那么没有内置的方法，只能把key和value存到2个数组里，排序后在写回字典。
不过根本没有必要这么做。你要查找是否存在的话，直接d.exists方法就可以了。

香川群子

楼主丧失记忆了？

相同的问题不是已经提问过了吗？