如何在Excel中根据指定行数值对列进行动态自动排序

假设你的原始数据存放在A1:D5区域，A列为固定行表头，B~D列为工单列：

1. 点击任意空白单元格作为排序后表格的左上角起始位置（例如F1）
2. 输入公式：
   =HSTACK(A1:A5,SORTBY(B1:D5,B3:D3,1,B4:D4,1))
3. 公式会自动溢出生成完整排序后的表格，只要你修改原始区域的到期日、最后更新时间，排序结果会自动同步刷新。

参数说明：

• A1:A5 是你要固定保留的首列行表头区域，可根据实际范围调整
• B1:D5 是所有工单列的全部数据区域
• B3:D3,1 指按到期日行（第3行）升序排列，实现到期日从近到远排序
• B4:D4,1 指到期日相同时，按最后更新时间行（第4行）升序排列，实现更新时间从早到晚排序

如果使用不支持动态数组的旧版本Excel，可通过工作表变更事件实现自动排序：

1. 右键点击当前工作表的标签，选择「查看代码」打开VBA编辑器
2. 将以下代码粘贴到编辑器窗口，按需求修改区域参数后保存：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 修改下方为你实际的工单列数据区域（不含首列表头）
    Dim SortRange As Range
    Set SortRange = Me.Range("B1:D5")
    
    ' 仅修改到期日、最后更新时间时触发排序
    If Not Intersect(Target, Me.Range("3:4")) Is Nothing Then
        Application.EnableEvents = False
        With Me.Sort
            .SortFields.Clear
            ' 第一排序规则：按到期日升序
            .SortFields.Add Key:=SortRange.Rows(3), Order:=xlAscending
            ' 第二排序规则：按最后更新时间升序
            .SortFields.Add Key:=SortRange.Rows(4), Order:=xlAscending
            .SetRange SortRange
            .Header = xlNo
            .Orientation = xlLeftToRight
            .Apply
        End With
        Application.EnableEvents = True
    End If
End Sub

3. 将工作簿保存为.xlsm格式，后续打开文件时启用宏即可，修改到期日、最后更新时间后会自动完成列排序，首列表头不受任何影响。

内容的提问来源于stack exchange，提问作者Adapheon