使用循环提取加粗单元格间数据，计算指定行D列求和并处理偏移

我来给你提供一个基于Excel VBA的解决方案，正好匹配你描述的需求——按加粗日期标题划分的区间，统计对应A列为"Individual"的行的D列总和，没找到目标值时自动偏移输出单元格：

• 先遍历工作表，收集所有**加粗标题行（日期行）**的行号，以此划分每个日期对应的独立数据区间
• 对每个区间，逐行检查A列是否为"Individual"，累加对应D列的数值
• 根据是否找到目标行，决定直接写入求和结果，还是偏移输出单元格并标注提示

Sub SumIndividualByDateRange()
    Dim ws As Worksheet
    Dim boldRows As Collection
    Dim i As Integer, startRow As Integer, endRow As Integer
    Dim cell As Range
    Dim totalSum As Double
    Dim outputCell As Range
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 存储所有加粗标题行的行号
    Set boldRows = New Collection
    
    ' 第一步：定位所有加粗的日期标题行
    On Error Resume Next
    For Each cell In ws.UsedRange.Columns(1).Cells
        ' 假设标题在A列，若标题在其他列，修改Columns的索引（比如Columns(2)是B列）
        If cell.Font.Bold Then
            boldRows.Add cell.Row
        End If
    Next cell
    On Error GoTo 0
    
    ' 没有找到加粗标题的情况处理
    If boldRows.Count = 0 Then
        MsgBox "未检测到加粗的日期标题行，请确认标题格式！"
        Exit Sub
    End If
    
    ' 设置结果输出的起始单元格，按需修改（比如这里是K2）
    Set outputCell = ws.Range("K2")
    
    ' 第二步：遍历每个日期区间
    For i = 1 To boldRows.Count
        startRow = boldRows(i) + 1 ' 区间起始行是标题行的下一行
        ' 确定区间结束行
        If i = boldRows.Count Then
            endRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
        Else
            endRow = boldRows(i + 1) - 1
        End If
        
        totalSum = 0 ' 重置求和变量
        
        ' 第三步：在当前区间内统计符合条件的D列总和
        For Each cell In ws.Range("A" & startRow & ":A" & endRow)
            If cell.Value = "Individual" Then
                ' 忽略D列的非数值内容，避免报错
                If IsNumeric(ws.Range("D" & cell.Row).Value) Then
                    totalSum = totalSum + ws.Range("D" & cell.Row).Value
                End If
            End If
        Next cell
        
        ' 第四步：输出结果，未找到目标行时偏移单元格
        Dim hasMatch As Boolean
        hasMatch = (ws.Evaluate("COUNTIF(A" & startRow & ":A" & endRow & ",""Individual"")") > 0)
        
        If hasMatch Then
            outputCell.Value = totalSum
        Else
            ' 未找到目标值，偏移输出单元格（这里是下移1行，可改成Offset(0,1)右移）
            Set outputCell = outputCell.Offset(1, 0)
            outputCell.Value = "无匹配行"
        End If
        
        ' 准备下一个区间的输出位置
        Set outputCell = outputCell.Offset(1, 0)
    Next i
    
    MsgBox "统计完成！"
End Sub

1. 加粗行收集：遍历A列（可修改列索引）的所有单元格，把字体加粗的行号存入集合，作为区间划分的标记
2. 区间划分：每个区间的起始是当前标题行的下一行，结束是下一个标题行的上一行；最后一个区间直接到工作表已用区域的末尾
3. 求和逻辑：对每个区间内的A列进行检查，匹配"Individual"时累加D列数值，同时加入了非数值判断避免报错
4. 输出处理：通过COUNTIF判断区间内是否存在目标行，不存在时自动偏移输出单元格并标注提示

• 确保日期标题行的字体确实是加粗状态，否则无法识别区间
• 根据你的实际工作表，修改代码中的工作表名称（Sheet1）和起始输出单元格（K2）
• 如果需要调整偏移规则（比如右移而非下移），修改Offset(1,0)的参数即可（第一个参数是行偏移，第二个是列偏移）
• 如果D列存在空值或错误值，代码中的IsNumeric判断会自动跳过这些内容，避免求和出错

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