如何用VBA为Excel动态表格的G列添加批量乘法计算公式？

一、无需VBA的快速解决方案 #

直接在G列（比如G2单元格）输入以下公式，下拉填充至所有数据行即可自动匹配对应分组的E列小计：

=LOOKUP(2,1/(E$2:E2<>""),E$2:E2)*F2

公式逻辑： #

• E$2:E2<>"" 筛选当前行及以上的E列非空单元格（即分组小计）
• 1/(...) 将布尔值转换为数值（非空单元格对应1，空单元格对应错误值）
• LOOKUP(2,1/(...),E$2:E2) 忽略错误值，定位到当前行上方最后一个非空的E列单元格（即所属分组的小计）
• 最终乘以F列当前行数值得到应付利息

二、VBA批量处理方案 #

如果需要通过VBA自动完成（可与你原有的E列处理代码整合），以下代码会自动识别所有分组，并为每个分组的G列批量设置公式：

Sub ProcessInterestAndEColumn()
    Dim lastRow As Long
    Dim groupHeaders As Range, header As Range
    Dim startRow As Long, endRow As Long
    
    ' ----------------------
    ' 执行原有E列处理逻辑
    ' ----------------------
    Dim rngE As Range, r As Range
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    On Error Resume Next
    Set rngE = Range("E2:E" & lastRow).SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    
    If Not rngE Is Nothing Then
        For Each r In rngE.Areas
            With r
                .Cells(1, 1).Offset(.Rows.Count).Formula = "=OFFSET(INDIRECT(ADDRESS(ROW(), COLUMN())), 0, 2) / OFFSET(INDIRECT(ADDRESS(ROW(), COLUMN())), 0, 1)"
            End With
        Next r
    End If
    
    ' ----------------------
    ' 新增G列应付利息公式设置
    ' ----------------------
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    On Error Resume Next
    Set groupHeaders = Range("E2:E" & lastRow).SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    
    If groupHeaders Is Nothing Then Exit Sub
    
    For Each header In groupHeaders
        startRow = header.Row + 1
        ' 判断当前分组的结束行：下一个分组小计的上一行，或数据最后一行
        If header.Row < groupHeaders.Areas(groupHeaders.Areas.Count).Row Then
            endRow = groupHeaders.Cells(header.Row - groupHeaders.Cells(1).Row + 2).Row - 1
        Else
            endRow = lastRow
        End If
        
        ' 为当前分组的G列批量设置公式
        If startRow <= endRow Then
            Range("G" & startRow & ":G" & endRow).FormulaR1C1 = "=R" & header.Row & "C5*RC6"
        End If
    Next header
End Sub

代码说明： #

1. 原有E列逻辑保留：继续为E列空单元格设置F列小计/G列总计的公式
2. 分组识别：通过E列非空单元格定位所有分组的小计行
3. 批量公式设置：为每个分组内的G列单元格设置固定引用对应分组小计的公式，确保动态分组下的匹配准确性

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