使用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")

希望这会有所帮助。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

Excel VBA:按字母数字顺序对工作表进行排序

如何按两个不同的列对 Excel 工作表进行排序

无法按两列或更多列对Excel数据透视表进行排序

仅使用javaScript按日期值desc按列对HTML中的表进行排序

如何在Excel中按数据对列进行排序/排序

使用javascript按具有高,中,低值的列对html表进行排序

按动态数组 VBA 的值对 Excel 表进行排序

Excel:如何按相同的列值对行进行排序

无法使用C#对excel工作表进行排序

使用 VBA 根据工作表变量对范围进行排序

通过动态确定关键列对 Excel 工作表进行排序

按字母顺序使用 JSON 数据对 HTML 表进行排序

使用excel值制作列表并按工作表排序

使用 VBA 在 Excel 文件的工作表之间进行循环

如何根据不在数据框中使用 if 条件的值对 14 列进行排序,而不是按行排序?

使用VBA匹配excel中两个不同工作表的两列的值

如何使用VBA从网站提取数据并填写Excel工作表?

使用列值python对excel文件进行排序

Excel:按给定值对名称进行排序

Excel 365:如何从一张工作表中提取数据并使用重复项自动对其进行排序

如何使用Excel表格对Excel工作表中的行进行排序并打印到文件?

在Excel VBA中按列排序

按特定列号排序 - Excel VBA

如何使用备用值对 JavaScript 数据表进行排序?

按IP地址对Excel列进行排序

对具有特定条件的Excel工作表进行排序(VBA)

excel vba 在所有工作表中对 RGB 进行排序

使用VBA对Excel表进行排序时,如何在列中引用当前星期单元格?

使用Excel VBA激活工作表