vba自定义排序主关键字次关键字

在 VBA 中，可以使用 Sort 方法对数组进行排序。如果要按照多个关键字进行排序，则可以使用自定义比较函数来实现。

以下是一个示例代码，该代码将一个二维数组按照主关键字（第一列）和次关键字（第二列）进行排序：

Sub CustomSort()
    Dim arr(1 To 5, 1 To 2) As Variant
    arr(1, 1) = "A"
    arr(1, 2) = 1
    arr(2, 1) = "C"
    arr(2, 2) = 2
    arr(3, 1) = "B"
    arr(3, 2) = 1
    arr(4, 1) = "D"
    arr(4, 2) = 2
    arr(5, 1) = "E"
    arr(5, 2) = 1
    
    '调用自定义比较函数进行排序
    Call SortArray(arr, 1, 2)
    
    '输出排序结果
    For i = 1 To 5
        Debug.Print arr(i, 1) & " " & arr(i, 2)
    Next i
End Sub

Function SortArray(ByRef arr As Variant, ByVal col1 As Long, ByVal col2 As Long)
    Dim i As Long, j As Long
    Dim temp As Variant
    
    '冒泡排序
    For i = LBound(arr, 1) To UBound(arr, 1) - 1
        For j = i + 1 To UBound(arr, 1)
            If arr(i, col1) > arr(j, col1) Or (arr(i, col1) = arr(j, col1) And arr(i, col2) > arr(j, col2)) Then
                '交换两个元素
                temp = arr(i, 1)
                arr(i, 1) = arr(j, 1)
                arr(j, 1) = temp
                
                temp = arr(i, 2)
                arr(i, 2) = arr(j, 2)
                arr(j, 2) = temp
            End If
        Next j
    Next i
End Function

在此示例中，SortArray 函数接受一个二维数组和两个列号作为参数，并按照指定的列进行排序。主关键字为第一列，次关键字为第二列。在比较两个元素时，如果第一列相同，则比较第二列。

你可以根据需要修改该代码来实现你自己的排序需求。