数组排序系列（8）-白红宇

数组排序系列（8）

阅读量：285 次

发布时间：2019-03-03

本文共 1122 字，大约阅读时间需要 3 分钟。

 Sortedlist排序法
'System.Collections.Sortedlist’对象的所有元素自动进行排序。
Sub SortedList()    Dim aintData(1 To 10) As Variant    Dim i As Integer    Dim intLB As Integer    Dim intUB As Integer    Dim avntData(1 To 10) As Variant    Dim objSortedList As Object        intLB = LBound(aintData)    intUB = UBound(aintData)        For i = intLB To intUB        aintData(i) = Application.WorksheetFunction.RandBetween(1, 100)    Next i        Debug.Print "Original Data: " & Join(aintData, ",")        Set objSortedList = CreateObject("System.Collections.Sortedlist")        For i = intLB To intUB        objSortedList.Add aintData(i), aintData(i)    Next i        For i = intLB To intUB        avntData(i) = objSortedList.getkey(i - 1)    Next i        Debug.Print "After Sort: " & Join(avntData, ",")End Sub
运行代码结果如下：
       
    Original Data: 72,8,53,2,38,51,39,63,77,33
    
    After Sort: 2,8,33,38,39,51,53,63,72,77
   
代码解析：    第14行代码创建’System.Collections.Sortedlist’对象实例。    第15行到第17行代码将数组元素添加到Sortedlist中，添加过程中Sortedlist对象自动对所有元素进行排序。
如需使用降序排序，只需修改第19行代码如下：
avntData(i) = objSortedList.getkey(intUB - i)
此方法是一种高效的排序方式，适用于需要自动排序的场景。