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

第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) + 间隔 To UBound(arr)
temp = arr(x, 1)
For y = x - 间隔 To LBound(arr) Step -间隔
If arr(y, 1) <= temp Then Exit For
arr(y + 间隔, 1) = arr(y, 1)
’ k1 = k1 + 1
Next y
arr(y + 间隔, 1) = temp
Next x
间隔 = 间隔 \ 3
Loop
’ MsgBox k1
'Range(“e3”).Resize(5000) = “”
Range(“d1”).Resize(UBound(arr)) = arr
'Range(“e2”) = Timer - t
End Sub