本文共 1060 字，大约阅读时间需要 3 分钟。
'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)
相关文章链接：
转载地址：http://fbjl.baihongyu.com/