excel - 使用冒泡方法的列表框排序跳过列表框中的第一项

Question

我需要帮助自定义此冒泡排序代码，以便它跳过列表框中的第一项，仅对列表框中的其余项目进行排序。我迷路了，需要一些指示。谢谢

    Dim j As Long
    Dim sTemp As String
    Dim sTemp2 As String
    Dim LbList As Variant

    'Store the list in an array for sorting
    LbList = Me.WorksheetListBox.List

    'Bubble sort the array on the first value
    For i = LBound(LbList, 1) To UBound(LbList, 1) - 1
        For j = i + 1 To UBound(LbList, 1)
            If LbList(i, 0) > LbList(j, 0) Then
                'Swap the first value
                sTemp = LbList(i, 0)
                LbList(i, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp

                'Swap the second value
                sTemp2 = LbList(i, 1)
                LbList(i, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
            End If
        Next j
    Next i

'Remove the contents of the listbox
        Me.WorksheetListBox.Clear

        'Repopulate with the sorted list
        Me.WorksheetListBox.List = LbList

标签： excelvbabubble-sort