需求：编写按7:00至次日6:59排序时间列的Excel VBA宏

要实现非默认的时间排序规则，核心思路是给凌晨时段（00:00-6:59）的时间添加1天的偏移量，让它们在排序时被“后置”到当日7:00之后。以下是修改后的完整代码：

Sub Macro2()
    ' 按7:00至次日6:59规则排序G列时间
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Arr")
    
    ' 清除原有排序规则
    ws.AutoFilter.Sort.SortFields.Clear
    
    ' 插入辅助列用于计算排序键
    ws.Columns("H:H").Insert Shift:=xlToRight
    ws.Range("H1").Value = "排序辅助"
    ' 生成排序值：7点及以后用原时间，7点前加1天
    ws.Range("H2:H" & ws.Cells(ws.Rows.Count, "G").End(xlUp).Row).Formula = _
        "=IF(G2>=TIME(7,0,0), G2, G2+1)"
    
    ' 设置排序规则，按辅助列升序
    ws.AutoFilter.Sort.SortFields.Add Key:=ws.Range("H2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    ' 应用排序
    With ws.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 删除辅助列，恢复原表格结构
    ws.Columns("H:H").Delete Shift:=xlToLeft
End Sub

关键说明 #

• 辅助列逻辑：通过TIME(7,0,0)判断时间是否在7点之后，凌晨时段的时间加1天，确保排序时它们处于当日7点之后的位置
• 自动适配数据范围：用ws.Cells(ws.Rows.Count, "G").End(xlUp).Row获取G列最后一行数据，不需要手动指定行数
• 排序后自动清理辅助列，不会留下多余数据

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