数组归并排序

cidanji

归并排序还是挺好的，在vba里写了一下，10万的乱序数组排下来速度还可以，略逊于快速排序 但特点是它本身类属稳定排序 相同值顺序不乱

1. '/// 归并排序 ///
   
2. '【说明】速度快，略逊于快速排序，但属稳定排序。不限数据类型支持数字/字符串/日期等
   
3. '【参数】arr:要排序的数组，x:排序开始行，UD:0升降(默认)1降序
   
4. Sub GBsort(arr, x&, Optional UD&)
   
5. Dim brr(), y&
   
6. y = UBound(arr)
   
7. ReDim brr(x To y)
   
8. toSort arr, brr, x, y
   
9. If UD <> 0 Then
   
10.     Dim i&, j&, crr
    
11.     ReDim crr(LBound(arr) To UBound(arr))
    
12.     For i = LBound(arr) To UBound(arr)
    
13.         If i < x Or i > y Then
    
14.             crr(i) = arr(i)
    
15.         Else
    
16.             crr(i) = arr(y + x - i)
    
17.         End If
    
18.     Next
    
19.     arr = crr
    
20. End If
    
21. End Sub
    
22. 
    
23. Private Sub toSort(a, b, x&, y&)
    
24. If y <= x Then Exit Sub
    
25. Dim m&
    
26. m = Int((y + x) / 2)
    
27. toSort a, b, x, m
    
28. toSort a, b, m + 1, y
    
29. merger a, b, x, m, y
    
30. End Sub
    
31. 
    
32. Private Sub merger(a, b, x&, m&, y&)
    
33. Dim i As Long
    
34. Dim j As Long
    
35. Dim k As Long
    
36. i = x
    
37. j = m + 1
    
38. For k = x To y
    
39.     b(k) = a(k)
    
40.     b(k) = a(k)
    
41. Next
    
42. For k = x To y
    
43.     If i > m Then
    
44.         a(k) = b(j)
    
45.         j = j + 1
    
46.     ElseIf j > y Then
    
47.         a(k) = b(i)
    
48.         i = i + 1
    
49.     ElseIf b(i) <= b(j) Then
    
50.         a(k) = b(i)
    
51.         i = i + 1
    
52.     Else
    
53.         a(k) = b(j)
    
54.         j = j + 1
    
55.     End If
    
56. Next
    
57. End Sub

复制代码

ykcbf1100

这个只适合一维数组排序，但排序速度明显比香川写的一维数组排序慢，香川法10万行才用时0.043秒

我让DeepSeek写了一个，排序速度比香川法还快,才用时0.035秒

今铭昔

WPS在转数组与写回数组上比VBA慢一点，不过JS的sort效率非常高。

lyfegf

今铭昔 发表于 2025-3-23 19:38
WPS在转数组与写回数组上比VBA慢一点，不过JS的sort效率非常高。

现在叫个语言排序和字典都比vba强, 太古老了, 字典多了就卡, 排序要自己写算法, 大老难问题

今铭昔

lyfegf 发表于 2025-3-23 21:53
现在叫个语言排序和字典都比vba强, 太古老了, 字典多了就卡, 排序要自己写算法, 大老难问题

语法古老问题不大，主要是语言停止维护，不进行演进，跟不上时代。上古时期的JS的写法也很恶心，后来2015年发布ES6才让JS支棱起来了，之后每一年都发布一次ES标准，如今十年过去，已经是越来越强了，增加了很多特性和语法糖。

LIUZHU

ykcbf1100 发表于 2025-3-23 18:10
这个只适合一维数组排序，但排序速度明显比香川写的一维数组排序慢，香川法10万行才用时0.043秒

我让Dee ...

这个0.035秒应该指的是纯数组排序，不包括读写单元格的时间

LIUZHU

今铭昔 发表于 2025-3-23 19:38
WPS在转数组与写回数组上比VBA慢一点，不过JS的sort效率非常高。

JS的排序非常快，就是读写单元格比VBA慢一点，但是也就是慢一点点，慢的这点时间，也不能干别的事情

LIUZHU

今铭昔 发表于 2025-3-24 07:03
语法古老问题不大，主要是语言停止维护，不进行演进，跟不上时代。上古时期的JS的写法也很恶心，后来2015 ...

ES6之后是否有更新的版本出现？

ykcbf1100

LIUZHU 发表于 2025-4-1 16:51
这个0.035秒应该指的是纯数组排序，不包括读写单元格的时间

排序时间大家都统一基准的。
DeepSeek肯定是用了快速排序了，大多数数组排序法1万行排序都费劲，更不要说10万行排序了。

lizhipei78

我们差那几秒钟时间吗？我用VBA不会排序，我都是直接放到单元格中进行排序，貌似不比你们的高级写法慢得多少啊。