vba sort自定义排序

VBA中的Sort方法可以用于对数组进行排序。对于自定义排序，您需要使用Compare参数，并编写一个函数来执行自定义比较操作。

下面是一个示例代码，演示如何使用VBA进行自定义排序：

Sub CustomSort()
    Dim arr(1 To 5) As String
    Dim i As Integer
    
    arr(1) = "apple"
    arr(2) = "orange"
    arr(3) = "banana"
    arr(4) = "grape"
    arr(5) = "peach"
    
    '调用Sort方法，并传递自定义比较函数
    Call VBA.Sort(arr, AddressOf Compare)
    
    '输出排序结果
    For i = 1 To 5
        Debug.Print arr(i)
    Next i
End Sub

Function Compare(ByVal a As String, ByVal b As String) As Integer
    '自定义比较函数
    '如果a小于b，则返回-1
    '如果a等于b，则返回0
    '如果a大于b，则返回1
    
    Select Case a
        Case "banana"
            Select Case b
                Case "banana"
                    Compare = 0
                Case "orange", "apple"
                    Compare = -1
                Case Else
                    Compare = 1
            End Select
        Case "apple"
            Select Case b
                Case "apple"
                    Compare = 0
                Case Else
                    Compare = -1
            End Select
        Case "orange"
            Select Case b
                Case "orange"
                    Compare = 0
                Case Else
                    Compare = 1
            End Select
        Case "grape"
            Select Case b
                Case "grape"
                    Compare = 0
                Case "peach"
                    Compare = -1
                Case Else
                    Compare = 1
            End Select
        Case "peach"
            Select Case b
                Case "peach"
                    Compare = 0
                Case Else
                    Compare = 1
            End Select
    End Select
End Function

在上面的代码中，我们定义了一个自定义比较函数Compare，该函数接受两个字符串参数a和b，并返回一个整数值，用于指示a与b的大小关系。然后，我们定义了一个字符串数组arr，并使用Sort方法对其进行排序，同时传递了自定义比较函数Compare。最后，我们遍历排序后的数组，并输出结果。

请注意，上面的示例中的自定义比较函数Compare只是一个示例，您可以根据自己的需求编写不同的比较函数。