使用vba对excel中的特定列进行排序

Question

我有一个列表，并希望在列c4：c150值更改时对此列表进行排序。 我在Worksheet_Change中使用了以下代码，但没有工作！有谁帮我？

Dim KeyCells As Range    
Set KeyCells = Range("C4:C150")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
  Is Nothing Then
  Columns("A:C").Sort key1:=Range("C4"), order1:=xlDescending, Header:=xlYes
End If

enter image description here enter image description here

Answer 1

假设第4行的标题如下：

在工作表代码区域中安装事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C5:C150")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Call Zort
    Application.EnableEvents = True
End Sub

并在标准模块中安装：

Sub Zort()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C5:C150") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

        .SetRange Range("A4:C150")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

如果第4行没有标题，请调整范围限制。

Answer 2

孤立的.Sort语句在这里工作，尽管它可能不会完全符合您的要求。将完整列显示为要排序的范围以及设置Header:=xlYes会使Excel认为您的标题位于第1行，并将实际标题从第1-3行放入表格

因此需要稍微修改排序范围......例如

Sub Test()
Dim KeyCells As Range, SortRange As Range

    Set KeyCells = Range("C4:C150")
    Set SortRange = [A3:C150] ' or however large your data range is

    If True Then 'simulating positive IF
        SortRange.Sort Key1:=SortRange(1, 3), Order1:=xlAscending, Header:=xlYes
    End If

End Sub