如何在Excel VBA宏中添加日期列从新到旧的排序功能？

需求回顾 #

需要实现的Excel批量处理步骤：

• 筛选State列（第5列）中的「Closed Incomplete」和「Closed Skipped」项并删除
• 取消筛选
• 将D列日期格式从DD-MM-YYYY HH:MM:SS改为DD/MM/YYYY
• 按Date列（D列）从新到旧排序

现有代码的问题 #

1. 日期格式代码写错："DD/MM/YYY"应该改为"DD/MM/YYYY"，否则年份仅显示三位
2. 尝试的排序代码存在多处问题：
   • 未指定目标工作表，易引发引用错误
   • 数据范围写法冗余且可能误判有效数据边界
   • 排序顺序设为xlAscending（升序，旧到新），不符合「从新到旧」的需求，应使用xlDescending

修正后的完整VBA代码 #

Sub All_Steps()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Update Template")
    
    ' 1. 筛选State列（第5列）的指定状态
    ws.Range("A1:E15000").AutoFilter Field:=5, _
        Criteria1:="Closed Incomplete", Operator:=xlOr, Criteria2:="Closed Skipped"
    
    ' 2. 删除筛选出的行（跳过表头）
    Application.DisplayAlerts = False
    On Error Resume Next ' 防止无筛选结果时宏报错中断
    ws.Range("A2:E15000").SpecialCells(xlCellTypeVisible).Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    
    ' 3. 取消筛选
    ws.ShowAllData
    
    ' 4. 修改D列日期格式为DD/MM/YYYY
    ws.Range("D2:D30000").NumberFormat = "DD/MM/YYYY"
    
    ' 5. 按D列（Date列）从新到旧排序
    ws.Range("A1").CurrentRegion.Sort _
        Key1:=ws.Range("D1"), _
        Order1:=xlDescending, _
        Header:=xlYes
End Sub

关键修改说明 #

• 新增ws变量绑定目标工作表，避免重复书写表名，同时杜绝隐式引用错误
• 给删除行逻辑添加错误处理，确保无符合条件的行时宏仍能正常执行
• 修正日期格式的年份位数为4位，匹配需求
• 排序改用CurrentRegion自动识别完整数据区域，比固定范围更灵活；排序顺序改为xlDescending实现「从新到旧」的要求

添加按钮操作步骤 #

1. 打开Excel「开发工具」选项卡（若未显示，可通过「文件-选项-自定义功能区」勾选启用）
2. 点击「插入-表单控件-按钮（窗体控件）」
3. 在工作表上拖动绘制按钮，选择All_Steps宏并确认
4. 修改按钮文本为「处理上传文件」等名称即可

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