【分享】VBA-SortedList排序

剑指E

终于找到VBA的排序方法：SortedList
并且SortedList很多特性与字典有异曲同工之处，很多时候可以用SortedList替代字典。

今铭昔

使用的应该是.net的集合，我在WPS里运行失败了，JS的数组自带一个sort函数，具体是什么排序逻辑，传入一个回调函数就可以了

约定的童话

凑个热闹

morpheus126

不知道兼容性如何，这边office64~365可用
谢谢分享

静听溪流

    感谢分享   点赞学习

aecn

SortedList排序 感谢分享

sdytsxd991122

lss001

'Vba一维数组快速排序
Sub Quicksort(vArray, L&, U&)
Dim pVal,  vSwap, pL&,  pU&
pL = L: pU = U
pVal = vArray((L + U) \ 2)

While (pL <= pU)
   While (vArray(pL) < pVal And pL < U)
      pL = pL + 1
   Wend
   While (pVal < vArray(pU) And pU > L)
      pU = pU - 1
   Wend
   If (pL <= pU) Then
      vSwap = vArray(pL)
      vArray(pL) = vArray(pU)
      vArray(pU) = vSwap
      pL = pL + 1
      pU = pU - 1
   End If
Wend

  If (L < pU) Then Quicksort vArray, L, pU
If (pL < U) Then Quicksort vArray, pL, U
End Sub

剑指E

sdytsxd991122 发表于 2023-11-14 09:27

升序排列的

GG函数