vba数组排序 字符串

在VBA中，可以使用内置的Sort函数对数组进行排序，包括字符串类型的数组。

下面是一个示例代码，用于对一个字符串类型的数组进行升序排序：

Sub SortStringArray()
    Dim strArray(4) As String
    Dim i As Integer
    ' 初始化数组
    strArray(0) = "apple"
    strArray(1) = "banana"
    strArray(2) = "orange"
    strArray(3) = "grape"
    strArray(4) = "pear"
    Call SortArray(strArray)
    ' 输出排序结果
    For i = 0 To UBound(strArray)
        Debug.Print strArray(i)
    Next i
End Sub
Sub SortArray(ByRef arr As Variant)
    Dim i As Long
    Dim j As Long
    Dim temp As String
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(j) < arr(i) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
End Sub
在这个示例中，我们首先定义了一个字符串类型的数组strArray，并且给它赋了一些初始值。
然后，我们调用了名为SortArray的子过程，这个子过程接受一个数组作为参数，并且使用冒泡排序法对它进行升序排序。
最后，我们使用一个For循环遍历排序后的数组，并将其输出到调试窗口中。
如果您需要按照降序排序，请将条件判断语句改为arr(j) > arr(i)。
希望这个示例能够帮助您理解如何在VBA中对字符串类型的数组进行排序。