二维数组排序模块

'二维数组排序
'idx排序列 ；colcount数组列数；rowcount行数 ； a需要排序的数组
'本模块行列与Excel表格习惯相同，与数组行列定义相反，使用中需要注意
Public Sub OrderArray(ByVal idx%, ByVal colcount%, ByVal rowcount%, ByRef a() As String)
    Dim row%, col2%, t$, col%
    ReDim Preserve a(0 To colcount, rowcount)
    For col2 = 1 To rowcount          '列循环,控制次数
          For col = rowcount To col2 Step -1    '递减
            If Val(a(idx, col)) > Val(a(idx, col - 1)) Then   '符合排序条件,选择排序行
              For row = colcount To 0 Step -1        '行排序
                   t = a(row, col)
                   a(row, col) = a(row, col - 1)
                   a(row, col - 1) = t
              Next row
            End If
        Next col
    Next col2
End Sub