【分享】VBA-SortedList排序

yynrzwh · 发表于 2023-11-14 11:42

lss001 发表于 2023-11-14 09:35
'Vba一维数组快速排序
Sub Quicksort(vArray)
Dim pVal, vSwap, L&, U&, pL&, pU&

看不懂大神这个的原理。
tmpL好像没赋值？
递归的话，If (L < pU) Then Quicksort vArray, L, pU 这个参数也不对啊？

lss001 · 发表于 2023-11-14 12:26

本帖最后由 lss001 于 2023-11-14 12:39 编辑

yynrzwh 发表于 2023-11-14 11:42
看不懂大神这个的原理。
tmpL好像没赋值？
递归的话，If (L < pU) Then Quicksort vArray, L, pU 这个 ...

tmpL误写，把tmpL改为pL，
参数 Sub Quicksort(vArray As Variant, L&, U&)
其中L表示数组vArray下标即LBound，
U表示数组vArray上标Ubound
详细的见楼上更正

cidanji · 发表于 2023-11-14 12:56

感谢分享！
原代码基础上SortedList换ArrayList感觉快了很多

VBA-ArrayList排序.rar (1.88 MB, 下载次数: 66)

剑指E · 发表于 2023-11-14 13:32

本帖最后由剑指E 于 2023-11-14 13:33 编辑

cidanji 发表于 2023-11-14 12:56
感谢分享！
原代码基础上SortedList换ArrayList感觉快了很多

的确快了很多，差不多一半的时间。以前总觉得vba在排序、排位方面是个弱鸡，现在这个看法彻底改变了。

cidanji · 发表于 2023-11-14 14:08

剑指E 发表于 2023-11-14 13:32
的确快了很多，差不多一半的时间。以前总觉得vba在排序、排位方面是个弱鸡，现在这个看法彻底改变了。

是的 vba原生就光秃秃给一个数组方法都得自己写，有些类调用起来感觉还挺好使的

沈默00 · 发表于 2023-11-14 14:54

cidanji 发表于 2023-11-14 12:56
感谢分享！
原代码基础上SortedList换ArrayList感觉快了很多

快了一半差不多，厉害，学习了

wanghan519 · 发表于 2023-11-14 15:02

本帖最后由 wanghan519 于 2023-11-14 19:39 编辑

据说.net里的sortedlist是红黑树实现的，用来排序好像有点大材小用

ykcbf1100 · 发表于 2024-1-15 15:07

本帖最后由 ykcbf1100 于 2024-1-16 08:15 编辑

cidanji 发表于 2023-11-14 12:56
感谢分享！
原代码基础上SortedList换ArrayList感觉快了很多

ArrayList使用有限制的，office版本至少在2007版以上，而且系统必须安装了net.Framework 3.5。

morpheus126 · 发表于 2024-1-15 18:22

求科普兼容性。。。
感谢分享，增长见识了

gwjkkkkk · 发表于 2024-1-15 18:49

SortedList排序感谢分享

		自动登录	找回密码
密码			免费注册