在空行分隔的数据区域间插入求和公式的VBA实现问题

数据区域被3个空行分隔，需要在间隔3列的日期列（如第二列、第五列）中，为每个数据区域插入求和公式，并将公式复制到后续符合间隔要求的日期列。目前已能遍历行判断空行，但缺少定位数据区域并插入公式的逻辑，需实现按步长3遍历日期列完成公式插入。

现有未完成的VBA代码：

Sub WorkInProgress2()
Dim lCol As Long
Dim lRow As Long
Dim ColNum As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lRow

    If Range("A" & i) = "" Then
        j = i + 1
        If Range("A" & j) = "" Or Range("A" & j) <> "" Then
            GoTo NextIteration
        End If

    Else
        For ColNum = 16 To lCol = Cells(1, Columns.Count).End(xlToLeft).Column Step 3
            Range(Cells(i, ColNum)).Formula = "=sum(P... need help here"
    
            
    End If
NextIteration:
Next i

核心逻辑 #

• 定位每个被3个空行分隔的数据区域的起始行与结束行
• 按步长3遍历目标日期列，在数据区域下方的空行插入求和公式

完整可运行代码 #

Sub InsertSumFormulas()
    Dim lCol As Long, lRow As Long
    Dim startRow As Long, endRow As Long
    Dim colNum As Integer
    Dim i As Long
    
    ' 获取表格最后一行和最后一列
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    lCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 初始化第一个数据区域的起始行
    startRow = 2
    For i = 2 To lRow
        ' 检测连续3个空行，判定为数据区域结束
        If i + 2 <= lRow And Range("A" & i) = "" And Range("A" & i + 1) = "" And Range("A" & i + 2) = "" Then
            endRow = i - 1
            
            ' 按步长3遍历日期列（从第16列开始）
            For colNum = 16 To lCol Step 3
                ' 在数据区域下方插入求和公式
                Cells(i, colNum).Formula = "=SUM(" & Cells(startRow, colNum).Address & ":" & Cells(endRow, colNum).Address & ")"
            Next colNum
            
            ' 更新下一个数据区域的起始行
            startRow = i + 3
            i = i + 2 ' 跳过空行块，提升遍历效率
        End If
    Next i
    
    ' 处理表格末尾的最后一个数据区域（无后续空行块的情况）
    If startRow <= lRow Then
        endRow = lRow
        For colNum = 16 To lCol Step 3
            Cells(endRow + 1, colNum).Formula = "=SUM(" & Cells(startRow, colNum).Address & ":" & Cells(endRow, colNum).Address & ")"
        Next colNum
    End If
End Sub

关键细节说明 #

• 数据区域判定：通过检查连续3个空行来确定上一个数据区域的结束位置，避免误判单个空行
• 公式自动适配：使用Address方法动态获取数据区域的单元格引用，无需手动修改行列号
• 遍历优化：遇到空行块时直接跳过，减少无效循环次数
• 边界处理：单独处理最后一个数据区域，确保末尾数据也能生成求和公式

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