Excel按日期分组块内排序时间列并保留日期标题的技术求助

方法一：辅助列分组排序（适合小批量验证） #

• 新增辅助列D（可命名为「分组标识」）
• 在D2单元格输入公式：=IF(A2<>"",A2,D1)，下拉填充到底。这个公式会自动把每个日期标题下方的所有行标记为同一日期，实现分组
• 选中所有数据（包含辅助列），点击「数据」→「排序」：
  • 主要关键字选分组标识（D列），次序设为升序
  • 添加次要关键字时间（B列），次序设为升序
• 排序完成后删除辅助列D即可

方法二：VBA宏批量处理（适配365天×5参考点的大量数据） #

这个方法能自动识别每个日期块并完成内部排序，无需手动选区域：

1. 按Alt+F11打开VBA编辑器，右键当前工作簿→插入→模块
2. 粘贴以下代码：

Sub SortDailyBlocks()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim startRow As Long, endRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet ' 需指定工作表的话，改成Set ws = ThisWorkbook.Sheets("你的表名")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    startRow = 2 ' 数据从第2行开始（第1行为表头），不符合的话自行修改数值
    For i = startRow To lastRow
        ' 识别日期标题行（A列有内容，下一行A列为空）
        If ws.Cells(i, "A").Value <> "" And ws.Cells(i + 1, "A").Value = "" Then
            endRow = i
            ' 定位当前日期块的最后一行
            Do While ws.Cells(endRow + 1, "A").Value = "" And endRow < lastRow
                endRow = endRow + 1
            Loop
            ' 对当前块的B、C列按时间升序排序
            ws.Range(ws.Cells(i + 1, "B"), ws.Cells(endRow, "C")).Sort _
                Key1:=ws.Cells(i + 1, "B"), Order1:=xlAscending, Header:=xlNo
            startRow = endRow + 1
            i = endRow
        End If
    Next i
    MsgBox "所有日期块排序完成！"
End Sub

3. 返回Excel按F5运行宏，也可以给宏添加快速访问按钮方便重复使用

提示：运行前务必备份数据，避免意外。如果数据起始行不是第2行，修改代码里的startRow数值即可

多参考点数据预处理建议 #

如果5个参考点的数据分散在不同工作表或同一表的不同区域：

• 把每个参考点的数据单独放在一个工作表，对每个表分别运行宏
• 用辅助列法的话，新增一列「参考点标识」，排序时依次按参考点、日期、时间排序

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