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

第25集 VBA排序算法之冒泡排序和选择排序 110、 冒泡排序 冒泡排序上面的数和它下面的数对比,如果大于它下面的数则互换,保证最后互换完小数上浮,大数下沉。 Sub 冒泡排序() Dim arr, temp, x, y, t, k t = Timer arr = Range(“a1:a10”) For x = 1 To UBound(arr) – 1 For y = x + 1 To UBound(arr) ‘只和当前数字下面的数进行比较 If arr(x, 1) > arr(y, 1) Then ‘如果它大于它下面某一个数字 temp = arr(x, 1) arr(x, 1) = ar