VBA入门到进阶常用知识代码总结26

最新推荐文章于 2020-12-01 06:10:48 发布

tiansdk320

最新推荐文章于 2020-12-01 06:10:48 发布

阅读量352

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104364721

版权

本文介绍了VBA中两种常见的排序算法——插入排序和希尔排序。通过具体的代码示例，详细解释了如何在VBA中实现这两种排序方法，包括对数组的处理和性能优化。插入排序适用于小规模数据，而希尔排序则利用增量序列提高效率，适用于较大规模的数据排序。

摘要由CSDN通过智能技术生成

第26集 VBA排序算法之插入排序和希尔排序
112、插入排序
Sub 插入排序()
Dim arr, temp, x, y, t, iMax, k, k1, k2
t = Timer
arr = Range(“a1:a10”)
For x = 2 To UBound(arr)

 temp = arr(x, 1) '记得要插入的值
 
 For y = x - 1 To 1 Step -1
   If arr(y, 1) <= temp Then Exit For
   arr(y + 1, 1) = arr(y, 1)
   'k1 = k1 + 1
 Next y
 arr(y + 1, 1) = temp
 'k2 = k2 + 1

Next
’ Range(“d3”).Resize(UBound(arr)) = “”
’ Range(“d3”).Resize(UBound(arr)) = arr
End Sub
113、希尔排序
Sub 希尔排序()
Dim arr
Dim 总大小, 间隔, x, y, temp, t
t = Timer
arr = Range(“a1:a30”)
总大小 = UBound(arr) - LBound(arr) + 1
间隔 = 1
If 总大小 > 13 Then
Do While 间隔 < 总大小
间隔 = 间隔 * 3 + 1
Loop
间隔 = 间隔 \ 9
End If
’ Stop
Do While 间隔
For x = LBound(arr) + 间