基于单元格文本插入行并复制带更新引用的VBA公式问题

问题核心是直接赋值公式字符串时，Excel不会自动调整相对引用，且原代码复制的目标行逻辑有误。以下是修正后的代码：

Sub InsertRowsBasedonCellTextValue()
    'Declare Variables
    Dim LastRow As Long, FirstRow As Long
    Dim Row As Long
    Dim new_inv As Variant ' 改用Variant存储值，无需引用Range对象

    ' 直接读取单元格值，避免后续引用问题
    new_inv = ThisWorkbook.Sheets("all Investors").Range("L4").Value

    With Sheets("InvLevel_Test")
        'Define First and Last Rows
        FirstRow = 1
        LastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        'Loop Through Rows (Bottom to Top)
        For Row = LastRow To FirstRow Step -1
            If .Range("C" & Row).Value = "Investor 8" Then
                ' 在当前行上方插入新行，原行下移一行
                .Range("C" & Row).EntireRow.Insert
                ' 设置新行C列的值
                .Range("C" & Row).Value = new_inv
                ' 复制原行（现在的Row+1行）的公式到新行，自动调整引用
                .Rows(Row + 1).Range("D:EY").Copy
                .Rows(Row).Range("D:EY").PasteSpecial Paste:=xlPasteFormulas
                ' 清除复制状态
                Application.CutCopyMode = False
            End If
        Next Row
    End With
End Sub

关键修改说明： #

• 替换公式赋值方式：放弃直接赋值.Formula，改用Copy + PasteSpecial xlPasteFormulas，让Excel自动处理相对引用的调整，比如原行的=SUM(E5:L5)复制到上方新行后会自动变为=SUM(E4:L4)。
• 修正复制目标行：插入新行后，原包含"Investor 8"的行会下移到Row+1位置，因此需要复制这一行的公式到新行Row。
• 优化变量类型：将new_inv改为Variant直接存储单元格值，避免后续因工作表激活状态导致的引用问题。

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