VBA Excel 变量对多个键顺序进行排序

使用VBA Excel编程语言，我们可以对多个键或顺序进行排序。排序是一种常见的操作，可以帮助我们整理和处理大量数据。在本文中，我们将学习如何使用VBA Excel中的变量来实现排序，并提供一些案例代码来帮助理解。

vba
Dim studentName As String
Dim score As Integer

vba
For i = 2 To lastRow
    studentName = Cells(i, 1).Value
    score = Cells(i, 2).Value
Next i

vba
Dim studentData() As Variant

vba
Redim studentData(lastRow - 1, 1) As Variant

vba
For i = 2 To lastRow
    studentData(i - 2, 0) = Cells(i, 1).Value
    studentData(i - 2, 1) = Cells(i, 2).Value
Next i

vba
' 按照分数的高低对学生进行排序
Call SortArray(studentData, 1)

vba
Sub SortStudents()
    Dim studentName As String
    Dim score As Integer
    Dim lastRow As Integer
    Dim studentData() As Variant
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 调整数组的大小
    Redim studentData(lastRow - 1, 1) As Variant
    
    ' 将学生的姓名和分数存储到数组中
    For i = 2 To lastRow
        studentData(i - 2, 0) = Cells(i, 1).Value
        studentData(i - 2, 1) = Cells(i, 2).Value
    Next i
    
    ' 按照分数的高低对学生进行排序
    Call SortArray(studentData, 1)
    
    ' 输出排序后的学生姓名和分数
    For i = 2 To lastRow
        Cells(i, 1).Value = studentData(i - 2, 0)
        Cells(i, 2).Value = studentData(i - 2, 1)
    Next i
End Sub
Sub SortArray(arr() As Variant, keyIndex As Integer)
    Dim i As Integer
    Dim j As Integer
    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, keyIndex) > arr(j, keyIndex) Then
                temp = arr(i, keyIndex)
                arr(i, keyIndex) = arr(j, keyIndex)
                arr(j, keyIndex) = temp
            End If
        Next j
    Next i
End Sub