尝试将列表框中加载的列从 A 排序到 Z

Question

我一直在尝试对列表框中填充的列值从 A 到 Z 进行排序。

我试过以下但没有调整。任何帮助将不胜感激。

Dim ws As Worksheet
Dim rng As Range
Dim myArray 

Set ws = Sheets("Sheet2")
Set rng = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row), Order1:=xlAscending

With Me.ListBox1
 .Clear
 .ColumnHeads = False
 .ColumnCount = rng.Columns.Count
 MyArray = rng
 .List = SortArray(myArray) 


End With

我想使用 Arrays for Sorting Function，它将填充到 Listbox。

Sub SortArray(myListBox As MSForms.ListBox, Optional resetMacro As String)


Dim j As Long
Dim i As Long
Dim temp As Variant

If resetMacro <> "" Then
    Run resetMacro, myListBox
End If

With myListBox
    For j = 0 To .ListCount - 2
        For i = 0 To .ListCount - 2
            If LCase(.List(i)) > LCase(.List(i + 1)) Then
                temp = .List(i)
                .List(i) = .List(i + 1)
                .List(i + 1) = temp
            End If
        Next i
    Next j
End With
 
End Sub

Answer 1

方法 1：对单元格中的数据进行排序

您需要使用 Range.Sort method

对范围进行排序

Set rng = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
rng.Sort key1:=ws.Range("A2"), order1:=xlAscending, Header:=xlNo

另见 VBA Excel sort range by specific column。

方法二：对数组中的数据进行排序

或者将数据加载到数组中并对数组进行排序。参见 VBA array sort function?

注：QuickSort算法取自上面link

Option Explicit

Private Sub LoadButton_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    
    Dim DataRange As Range
    Set DataRange = ws.Range("A2:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)

    ' 2-dimensional array of the data
    Dim DataArray() As Variant
    DataArray = DataRange.Value
    
    ' Sort data in 2-dimensional array DataArray
    QuickSortArray SortArray:=DataArray, SortColumn:=1
    
    ' Load sorted data into ListBox
    SortedListForm.SortedListBox.List = DataArray
End Sub


' QickSort algorithm that takes a 2-dimensional array
Public Sub QuickSortArray(ByRef SortArray As Variant, Optional ByVal Min As Long = -1, Optional ByVal Max As Long = -1, Optional ByVal SortColumn As Long = 0)
    On Error Resume Next

    'Sort a 2-Dimensional array
    ' SampleUsage: sort arrData by the contents of column 3
    '
    '   QuickSortArray arrData, , , 3
    '
    'Posted by Jim Rech 10/20/98 Excel.Programming
    'Modifications, Nigel Heffernan:
    '       ' Escape failed comparison with empty variant
    '       ' Defensive coding: check inputs

    Dim i As Long
    Dim j As Long
    
    Dim RowTemp As Variant
    Dim ColTempIdx As Long

    If IsEmpty(SortArray) Then
        Exit Sub
    End If
    If InStr(TypeName(SortArray), "()") < 1 Then  'IsArray() is somewhat broken: Look for brackets in the type name
        Exit Sub
    End If
    If Min = -1 Then
        Min = LBound(SortArray, 1)
    End If
    If Max = -1 Then
        Max = UBound(SortArray, 1)
    End If
    If Min >= Max Then    ' no sorting required
        Exit Sub
    End If

    i = Min
    j = Max
    
    Dim SortItem As Variant
    SortItem = Empty
    SortItem = SortArray((Min + Max) \ 2, SortColumn)

    ' We  send 'Empty' and invalid data items to the end of the list:
    If IsObject(SortItem) Then  ' note that we don't check isObject(SortArray(n)) - SortItem *might* pick up a valid default member or property
        i = Max
        j = Min
    ElseIf IsEmpty(SortItem) Then
        i = Max
        j = Min
    ElseIf IsNull(SortItem) Then
        i = Max
        j = Min
    ElseIf SortItem = "" Then
        i = Max
        j = Min
    ElseIf VarType(SortItem) = vbError Then
        i = Max
        j = Min
    ElseIf VarType(SortItem) > 17 Then
        i = Max
        j = Min
    End If

    Do While i <= j
        Do While SortArray(i, SortColumn) < SortItem And i < Max
            i = i + 1
        Loop
        Do While SortItem < SortArray(j, SortColumn) And j > Min
            j = j - 1
        Loop

        If i <= j Then
            ' Swap the rows
            ReDim RowTemp(LBound(SortArray, 2) To UBound(SortArray, 2))
            For ColTempIdx = LBound(SortArray, 2) To UBound(SortArray, 2)
                RowTemp(ColTempIdx) = SortArray(i, ColTempIdx)
                SortArray(i, ColTempIdx) = SortArray(j, ColTempIdx)
                SortArray(j, ColTempIdx) = RowTemp(ColTempIdx)
            Next ColTempIdx
            Erase RowTemp

            i = i + 1
            j = j - 1
        End If
    Loop

    If (Min < j) Then
        QuickSortArray SortArray, Min, j, SortColumn
    End If
    
    If (i < Max) Then
        QuickSortArray SortArray, i, Max, SortColumn
    End If
End Sub

尝试将列表框中加载的列从 A 排序到 Z

Trying to Sorting the Loaded Column in Listbox from A to Z

sorting

excel

vba

listbox

方法 1：对单元格中的数据进行排序

方法二：对数组中的数据进行排序