VBA按列快速排序(水平)

Sub QuickSortColumn()
    Dim rng As Range
    Dim sortColumn As Range
    Dim dataArr() As Variant
    
    ' 定义排序范围
    Set rng = Range("A1:C10")
    
    ' 获取排序列
    Set sortColumn = rng.Columns(2)
    
    ' 将数据存储到数组中
    dataArr = sortColumn.Value
    
    ' 执行快速排序算法
    QuickSort dataArr, LBound(dataArr), UBound(dataArr)
    
    ' 更新排序结果
    For i = LBound(dataArr) To UBound(dataArr)
        sortColumn.Cells(i + 1).Value = dataArr(i)
    Next i
End Sub

Sub QuickSort(arr() As Variant, low As Long, high As Long)
    Dim pivot As Variant
    Dim i As Long, j As Long
    Dim temp As Variant
    
    i = low
    j = high
    pivot = arr((low + high) \ 2)
    
    Do While i <= j
        Do While arr(i) < pivot
            i = i + 1
        Loop
        
        Do While arr(j) > pivot
            j = j - 1
        Loop
        
        If i <= j Then
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j - 1
        End If
    Loop
    
    If low < j Then QuickSort arr, low, j
    If i < high Then QuickSort arr, i, high
End Sub