ExcelVBA——数组排序冒泡算法

今天我们介绍一个好玩的算法——排序算法，当然排序功能excel功能区和筛选都能进行排序，有很多简便的方法，用VBA主要是看它的逻辑关系很好玩。

image.png

Sub 排序()
arr = Selection
For i = 1 To UBound(arr)
    For j = i + 1 To UBound(arr)
        If arr(i, 1) > arr(j, 1) Then
            k = arr(i, 1)
            arr(i, 1) = arr(j, 1)
            arr(j, 1) = k
        End If
    Next
Next
[b1].Resize(UBound(arr)) = arr
End Sub

-代码很短，但其中的逻辑关系却并不简单：
arr=selection将excel表格选择区域赋值给arr，arr这时是一个二维数组，然后定义i和j，j的值始终比i大1，这样方便i和j的循环比对，两层循环优先循环内层的原则，形成arr(i,1)的值和arr(j,1)的值进行循环比对，当arr(i,1)>arr(j,1)也就是上面的值大于下面的值，那么将arr(i,1)和arr(j,1)的值进行对调，当然对调也是有方法的，先将arr(i,1)的现在值赋值给变量k，然后将arr(i,1)=arr(j,1)换成arr(j,1)的值，最后将k的值赋值给arr(j,1),最后将改后的arr数组写入单元格，由于都是二维数组，所以不牵涉转置的问题。