在VBA中,可以使用内置的Sort方法对数组中的每一行进行单独排序。具体的步骤如下:
Dim arr(1 To 3, 1 To 5) As Integer
arr(1, 1) = 3
arr(1, 2) = 1
arr(1, 3) = 2
arr(1, 4) = 5
arr(1, 5) = 4
arr(2, 1) = 9
arr(2, 2) = 7
arr(2, 3) = 8
arr(2, 4) = 6
arr(2, 5) = 10
arr(3, 1) = 15
arr(3, 2) = 13
arr(3, 3) = 11
arr(3, 4) = 14
arr(3, 5) = 12
Dim i As Integer
For i = LBound(arr, 1) To UBound(arr, 1)
' 使用Sort方法对每一行进行排序
Call SortArray(arr, i)
Next i
Sub SortArray(arr() As Variant, row As Integer)
Dim sortArr As Variant
Dim i As Integer
' 将指定行的数据复制到一个新数组中
ReDim sortArr(1 To UBound(arr, 2))
For i = LBound(arr, 2) To UBound(arr, 2)
sortArr(i) = arr(row, i)
Next i
' 使用VBA的Sort方法对新数组进行排序
Call VBA.Sort(sortArr)
' 将排序后的结果复制回原数组的指定行
For i = LBound(arr, 2) To UBound(arr, 2)
arr(row, i) = sortArr(i)
Next i
End Sub
通过以上步骤,我们可以在VBA中对数组中的每一行进行单独排序。请注意,以上示例仅仅是演示了如何实现该功能,并非完整的VBA代码。你可以根据实际需求进行适当的修改和扩展。
腾讯云相关产品和产品介绍链接地址:
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云