根据影响整个表的一列对数据进行排序 VBA

Question

我正在尝试根据列 E 中的数据条目对我正在排序的表进行排序。但是，当我使用我的代码时，（下面）我的列变得杂乱无章和不匹配的行。 每行都需要包含与排序前相同的数据条目，只是根据 E 列中的值进行排序。我正在尝试对这个表进行排序，我的预期结果如下所示：

代码：

    With Worksheets("Fruits")
    Dim FruitsLastRow As Long
    Dim FruitsKeyRange As Range
        
        FruitsLastRow = .Range("E" & .Rows.Count).End(xlUp).Row
        Set DashboardRange = Range("E17:G" & FruitsLastRow)

        
        DashboardRange.Sort key1:=Range("E17:E" & FruitsLastRow), _
        order1:=xlAscending, Header:=xlNo _           

    End With

这就是我所拥有的

这就是我需要的

Answer 1

您只需为key1参数（ Range.Sort 示例）指定顶部单元格而不是所有单元格。

DashboardRange.Sort key1:=Range("E17"), order1:=xlAscending, Header:=xlNo