请求协助编写VBA代码：按E列日期排序后再按优先级排序

嗨，James！很高兴能帮你解决这个问题——既然你已经有了按E列日期排序的基础，那添加优先级排序其实只需要调整一下排序规则，让Excel先按日期排序，再按你要的High→Medium→Low顺序排列同一天的任务就行。

核心思路说明 #

Excel默认的文本排序是按字母顺序来的，而High（H）、Medium（M）、Low（L）的字母顺序是High>Low>Medium，这和我们需要的优先级顺序不符。所以我们要给排序指定自定义优先级序列，让Excel知道先排High，再Medium，最后Low。

完整VBA代码 #

下面是修改后的代码，你可以直接复制到你的VBA模块里，记得根据实际情况调整列的位置：

Sub SortByDateAndPriority()
    Dim targetSheet As Worksheet
    ' 替换成你的报表工作表名称，比如"ThisWorkbook.Worksheets("任务报表")"
    Set targetSheet = ActiveSheet
    
    ' 清除之前的排序设置，避免冲突
    targetSheet.Sort.SortFields.Clear
    
    ' 第一排序规则：按E列的处理日期升序排列（早的日期在前）
    targetSheet.Sort.SortFields.Add2 _
        Key:=Range("E2:E" & targetSheet.Cells(targetSheet.Rows.Count, "E").End(xlUp).Row), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
    
    ' 第二排序规则：按优先级列自定义排序（High→Medium→Low）
    ' 注意：把下面的"D2:D..."替换成你实际存放优先级的列（比如B列就改成"Range("B2:B...")"）
    targetSheet.Sort.SortFields.Add2 _
        Key:=Range("D2:D" & targetSheet.Cells(targetSheet.Rows.Count, "D").End(xlUp).Row), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        CustomOrder:="High,Medium,Low", _
        DataOption:=xlSortNormal
    
    ' 设置排序的整个数据范围（假设表头在第1行）
    With targetSheet.Sort
        .SetRange Range("A1:" & targetSheet.Cells(targetSheet.Rows.Count, targetSheet.Columns.Count).End(xlUp).Address)
        .Header = xlYes ' 如果你的数据没有表头，改成xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

关键细节提示 #

• 指定工作表：建议把ActiveSheet改成你报表的具体名称（比如ThisWorkbook.Worksheets("任务报表")），这样即使切换了工作表，代码也能正确找到目标表。
• 优先级列调整：代码里的D2:D...是假设优先级存放在D列，你一定要根据自己的报表结构替换成实际的列（比如优先级在F列就改成Range("F2:F...")）。
• 表头设置：如果你的数据没有表头（第一行就是任务数据），记得把.Header = xlYes改成.Header = xlNo，不然会把第一行当成表头不参与排序。
• 运行方式：你可以把这段代码放到VBA模块里，然后绑定到Excel里的按钮上，点击就能一键排序啦。

内容的提问来源于stack exchange，提问作者James D.