'二维数组排序
'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
二维数组排序模块
最新推荐文章于 2024-04-11 10:26:49 发布