VBA中字典数据的排序

cczjw

秋枫 发表于 2017-3-29 11:43
直接调用excel的排序命令啊。

在VBA中怎样调用呢？ 谢谢！

秋枫

cczjw 发表于 2017-3-29 11:49
在VBA中怎样调用呢？ 谢谢！

Range("A:H").Sort        key1, xlAscending, key2, ,xlAscending, , ,        xlYes

Sub Sort(Key1,Order1,Key2,Type,Order2,Key3,Order3,Header,OrderCustom,MatchCase,Orientation,SortMethod,DataOption1,DataOption2,DataOption3)

秋枫

' 本示例对工作表 Sheet1 上的单元格区域 A1:C20 进行排序，用单元格 A1 作为第一排序关键字，用单元格 B1 作为第二排序关键字。排序是按行以升序进行的，没有标题。本示例假定单元格区域 A1:C20 有数据存在。
Sub SortRange1()
   Worksheets("Sheet1").Range("A1:C20").Sort _
        Key1:=Worksheets("Sheet1").Range("A1"), _
        Key2:=Worksheets("Sheet1").Range("B1")
End Sub

02761752696

排序    很厉害

lkj23hg6

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

大神，打扰了，请问如何修改，可以对数值进行排序呢

xiaovba

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

赞美！学习了！

请问可以实现Key对应吗？

即字典的值排序以后，key不变。比如原来的顺序是d(1)=2,d(2)=3,d(3)=0, 值排序以后0,2,3, 顺序变成d(3),d(1),d(2)。需要用到的是排序后的key。

请问如何写代码？谢谢！

ning84

秋枫 发表于 2017-3-29 12:07
' 本示例对工作表 Sheet1 上的单元格区域 A1:C20 进行排序，用单元格 A1 作为第一排序关键字，用单元格 B1  ...

1. Sub del()
   
2.    Dim Dict As Dictionary
   
3.        Set Dict = New Dictionary
   
4.    Dim Rng As Range, Arr
   
5.        Set Rng = Sheet1.Cells(6, 1).CurrentRegion
   
6.        Set Rng = Rng(4, 1).Resize(9, 10)
   
7.        Debug.Print Rng.Address
   
8.        Rng.Select
   
9.        Rng.Sort key1:=Sheet1.Range("C4")
   
10.        Stop
    
11.    For ii = 1 To Rng.Rows.Count
    
12.         Set Dict(Rng(ii, 2)) = Rng(ii, 1)
    
13.    Next ii
    
14.    For ii = 0 To Dict.Count - 1
    
15.       Set Rng = Dict.Items(ii)
    
16.       Debug.Print Rng.Address
    
17.    Next ii
    
18. End Sub

复制代码

ning84

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

谢谢你的方法

要做测试字典+Range的排序。排序必须保证单元格的结构不变。

ning84

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

做了以下测试

       Str = Ojs.Eval("[""" & Join(Dict.Keys, """, """) & """].sort()")
       Debug.Print Str
       Str = "[""" & Join(Dict.Keys, """, """) & """].sort()"
       Debug.Print Str
       Str = Ojs.Eval(Str)
       Debug.Print Str
       Stop

结果如下

3,6,7,8,你,我,欣慰
["我", "6", "8", "你", "7", "欣慰", "3"].sort()
3,6,7,8,你,我,欣慰


按照思路又从新做了一边测试代码。

1. Sub del()
   
2.    Dim Dict As Dictionary, Ojs As ScriptControl
   
3.    Dim Arr, ii, jj, Str
   
4.        Set Dict = New Dictionary
   
5.        Set Ojs = New ScriptControl
   
6.        Arr = [{"我",6,8,6,"你",7,"欣慰",8,3}]
   
7.        For ii = 1 To UBound(Arr)
   
8.            Dict(Arr(ii)) = ""
   
9.        Next ii
   
10.        Ojs.Language = "JScript"
    
11.        Arr1 = Split(Ojs.Eval("[""" & Join(Dict.Keys, """, """) & """].sort()"), ",")
    
12.        Str = Ojs.Eval("[""" & Join(Dict.Keys, """, """) & """].sort()")
    
13.        Debug.Print Str
    
14.        Str = "[""" & Join(Dict.Keys, """, """) & """].sort()"
    
15.        Debug.Print Str
    
16.        Str = Ojs.Eval(Str)
    
17.        Debug.Print Str
    
18.        Stop
    
19. End Sub
    

复制代码