如何在Excel中按30分钟周期统计跨时段数据的求和值

你的Excel表格中A列是开始时间、B列是时长、C列是数据值，需要按30分钟固定周期（比如09:00-09:30、09:30-10:00这类整点/半点区间）统计覆盖该周期的所有数据值之和，无数据的周期返回0。你目前用的SUMIFS只能统计开始时间落在周期内的数据，没法处理跨多个周期的记录，下面提供两种可行方案：

一、单元格公式解法（支持动态数组） #

如果用的是Excel 365/2021及以上版本（支持动态数组），假设G列是周期起始时间（比如G2=09:00），在对应Output单元格输入以下公式：

=SUM(IF((A$2:A$10+B$2:B$10>G2)*(A$2:A$10<G2+TIME(0,30,0)),C$2:C$10,0))

要是用的是旧版Excel，输入完公式后需要按Ctrl+Shift+Enter作为数组公式确认。

公式逻辑： #

• A$2:A$10+B$2:B$10算出每条记录的结束时间
• (A$2:A$10 < G2+TIME(0,30,0))判断记录开始时间早于当前周期的结束时间
• (A$2:A$10+B$2:B$10 > G2)判断记录结束时间晚于当前周期的开始时间
• 两个条件同时满足，就说明这条记录覆盖了当前周期，把对应的数据值加进去，最后求和

二、VBA批量处理解法 #

如果数据集跨度超过一年，下拉公式可能效率不高，用VBA批量处理更合适：

1. 按Alt+F11打开VBA编辑器
2. 插入新模块，粘贴下面的代码：

Sub Calculate30MinuteSum()
    Dim ws As Worksheet
    Dim lastRow As Long, outputRow As Long
    Dim startTime As Range, duration As Range, valueRange As Range
    Dim cycleStart As Date, cycleEnd As Date
    Dim i As Long
    Dim totalSum As Double
    
    Set ws = ActiveSheet ' 可以改成指定工作表，比如Sheets("你的工作表名")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    outputRow = 2 ' 假设Output列从第2行开始，对应G列的周期起始时间
    
    Set startTime = ws.Range("A2:A" & lastRow)
    Set duration = ws.Range("B2:B" & lastRow)
    Set valueRange = ws.Range("C2:C" & lastRow)
    
    ' 遍历G列所有周期起始时间
    Do While ws.Cells(outputRow, "G").Value <> ""
        cycleStart = ws.Cells(outputRow, "G").Value
        cycleEnd = cycleStart + TimeSerial(0, 30, 0)
        totalSum = 0
        
        ' 检查每条数据是否覆盖当前周期
        For i = 1 To startTime.Rows.Count
            Dim recStart As Date, recEnd As Date
            recStart = startTime.Cells(i).Value
            recEnd = recStart + duration.Cells(i).Value
            
            If recEnd > cycleStart And recStart < cycleEnd Then
                totalSum = totalSum + valueRange.Cells(i).Value
            End If
        Next i
        
        ' 把结果写入Output列（这里默认是H列，按需修改列号）
        ws.Cells(outputRow, "H").Value = totalSum
        outputRow = outputRow + 1
    Loop
End Sub

使用提示： #

• 先在G列生成所有需要统计的30分钟周期起始时间（可以用序列填充快速生成）
• 代码里默认Output列是H列，你可以根据自己的表格调整ws.Cells(outputRow, "H")中的列标识
• 运行前记得备份数据，避免意外

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