Excel表格添加行宏定制需求：保留总计行并同步公式

问题描述 #

Excel表格中，B列范围为B5至B7，AA列范围为AA7至AA26，第26行是总计行。需要实现点击“添加行”按钮时：

• 插入与其他数据行格式、公式一致的新行
• 总计行功能保持不变，求和公式动态更新

现有宏存在两个问题：

1. 新行插入位置为倒数第二行，而非数据行的最后一行（总计行上方）
2. AA列公式错误：应为R列 × V列，实际执行的是N列 × R列

修正后的完整宏代码 #

Sub ClearContents()
'
' Macro1 Macro

    ActiveSheet.Range("G7:L27").ClearContents
    ActiveSheet.Range("N7:P27").ClearContents
    ActiveSheet.Range("R7:T27").ClearContents
    ActiveSheet.Range("V7:Y27").ClearContents
    
End Sub

Sub AddRow()
'
' 修正后的添加行宏
    Dim ws As Worksheet
    Dim totalRow As Long
    Dim newRow As Long
    Dim borderColumns As Variant
    Dim col As Variant

    ' 指定操作工作表
    Set ws = ActiveSheet

    ' 定义总计行初始位置
    totalRow = 26
    ' 新行插入在总计行上方
    newRow = totalRow

    ' 插入新行
    ws.Rows(newRow).Insert Shift:=xlDown

    ' 复制上一行数据行的格式到新行
    ws.Rows(newRow - 1).Copy
    ws.Rows(newRow).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

    ' 清空新行内容（保留格式和公式）
    ws.Rows(newRow).ClearContents

    ' 设置AA列公式为R列×V列（修正RC偏移量）
    With ws.Cells(newRow, ws.Columns("AA").Column)
        .FormulaR1C1 = "=RC[-9]*RC[-5]" ' RC[-9]对应R列，RC[-5]对应V列
    End With

    ' 调整上一行的底部边框（移除原分隔线）
    borderColumns = Array("M", "Q", "U", "Z")
    For Each col In borderColumns
        ws.Cells(newRow - 1, ws.Columns(col).Column).Borders(xlEdgeBottom).LineStyle = xlNone
    Next col

    ' 更新总计行的求和公式（扩展求和范围到新插入的行）
    With ws.Cells(totalRow + 1, ws.Columns("AA").Column)
        .Formula = "=SUM(AA7:AA" & totalRow & ")"
    End With

    MsgBox "行添加成功！", vbInformation
End Sub

关键修改说明 #

1. 修正新行插入位置

   • 移除原代码中冗余的总计行复制、插入和删除逻辑，直接在初始总计行（26行）上方插入新行，确保新行位于所有数据行末尾
   • 以上一行（原最后一条数据行）为模板复制格式，保证样式一致性

2. 修正AA列公式

   • 原公式RC[-13]*RC[-9]中，RC[-13]对应N列（AA列向左偏移13列），RC[-9]对应R列，导致计算逻辑错误
   • 修改为RC[-9]*RC[-5]：RC[-9]对应R列，RC[-5]对应V列，完全匹配需求的R×V计算规则

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