vba - 使用Excel VBA按列值对工作表数据进行排序

我在vba中开发了下一个用户表单，该表单从工作表中获取信息以显示信息

我想按段无序地排序所有信息，这是代码:

Function llenarDatosTabla()

    Dim vList As Variant
    Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST)

    ListBox1.Clear

    With ws
        If (IsEmpty(.Range("AA2").Value) = False) Then

            Dim ultimoRenglon As Long: ultimoRenglon = devolverUltimoRenglonDeColumna("A1", BD_PRODXSIST)

            vList = ws.Range("AA2:AA" & ultimoRenglon & ":AL2").Value

            If IsArray(vList) Then
                Me.ListBox1.List = vList
            Else
                Me.ListBox1.AddItem (vList)
            End If

        End If

        Me.ListBox1.ListIndex = -1

    End With




    Set vList = Nothing
    Set ws = Nothing
End Function

如何使其按“AD”(SEGMENTO)列排序？？？

最佳答案

您可以使用VBA语句按如下升序对Excel工作表进行排序:

Columns("A:XFD").Sort key1:=Range("AD:AD"), order1:=xlAscending, Header:=xlYes

注意:在Columns("A:XFD")列而不是XFD列中，输入与您的案例有关的最后使用的列，例如Columns("A:DD")。

希望这会有所帮助。