插入行后修复Excel单行公式引用的VBA宏开发需求

修改后的完整VBA宏 #

Sub AddRow_Click()
    Dim wsGuide As Worksheet
    Dim wsData As Worksheet
    Dim insertRow As Long
    Dim targetRow As Long
    Dim col As Range
    
    ' 绑定工作表对象，避免频繁切换选中状态
    Set wsGuide = ThisWorkbook.Sheets("Guide Outputs")
    Set wsData = ThisWorkbook.Sheets("Data")
    
    ' 获取插入位置的行号，执行插入操作
    insertRow = Selection.Row
    Selection.EntireRow.Insert
    
    ' 给新插入的行粘贴基准公式
    wsData.Range("B3:AE3").Copy
    wsGuide.Range("B" & insertRow & ":AE" & insertRow).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    
    ' 设置新行字体格式
    With wsGuide.Range("B" & insertRow & ":AE" & insertRow).Font
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
    End With
    
    ' --- 核心：修复下方行的断裂公式 ---
    targetRow = insertRow + 1 ' 定位插入行的下一行
    
    ' 遍历B到AE列，仅修复公式单元格
    For Each col In wsGuide.Range("B" & targetRow & ":AE" & targetRow).Columns
        If col.HasFormula Then
            ' 从Data表第3行对应列复制原始公式
            col.Formula = wsData.Cells(3, col.Column).Formula
        End If
    Next col
End Sub

核心逻辑说明 #

• 定位下方行：插入操作后，新行的行号是原选中行的行号，下方行直接用insertRow + 1定位
• 识别公式单元格：通过HasFormula属性判断单元格类型，自动跳过纯文本单元格，完全保留原有文本内容
• 修复引用：直接从Data表B3:AE3区域的对应列复制原始公式，覆盖断裂的引用，确保公式逻辑和基准一致
• 优化操作：去掉冗余的Select操作，改用工作表对象直接引用，提升宏的运行稳定性和执行速度

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