Excel VBA宏代码修正求助：批量为单元格公式追加乘积项

需求说明：工作表中G1单元格原有公式=$R$5I4+$S$5H4+$T$5G4+$U$5F4+$V$5E4+$W$5D4+$X$5C4+$Y$5B4，G2原有公式=$R$5I4+$S$5H4+$T$5G4+$U$5F4，需为这类不同的单元格公式末尾分别追加$X$5A4、$X$5A5这类乘积项。编写的VBA宏仅在i=1时正常运行，i=2时Cell.FormulaR1C1的值变为R7C25*R[-75]C，出现错误，请求修正。

我帮你排查了代码里的核心问题，现在给你修正后的完整代码：

Sub test2()
    Dim myRange As Range, Cell As Range
    Dim targetsheet As Worksheet
    Set targetsheet = Worksheets("Sheet1")
    Dim abc As String
    Dim i As Integer ' 显式声明变量类型，避免隐式声明的潜在问题
    
    For i = 1 To 14
        abc = "R7C" & (i + 24) ' 简化字符串拼接逻辑
        With targetsheet
            Set myRange = .Range(.Cells(77, i + 2), .Cells(87, i + 15))
        End With
        
        For Each Cell In myRange
            If IsEmpty(Cell) Then
                ' 空单元格直接生成新公式
                Cell.FormulaR1C1 = "=" & abc & "*R[-75]C[" & (-i + 1) & "]"
            Else
                ' 非空单元格追加公式片段，修正了语法错误
                Cell.FormulaR1C1 = Cell.FormulaR1C1 & "+" & abc & "*R[-75]C[" & (-i + 1) & "]"
            End If
        Next Cell
    Next i
End Sub

关键修正点： #

• 修复语法断裂问题：原来的代码里abc & "]*R[-75]C["多了一个多余的]，这直接导致i≥2时生成的公式缺少列偏移的闭合括号，出现R[-75]C这种不完整的语法，去掉这个多余的]就解决了核心错误。
• 显式声明变量：补充了Dim i As Integer，虽然VBA支持隐式声明，但显式声明能避免很多类型不匹配的潜在问题，让代码更严谨。
• 规范赋值方式：把原来的Cell = Cell.FormulaR1C1 & ...改成直接赋值给Cell.FormulaR1C1属性，避免直接赋值单元格时的格式转换风险，确保公式语法完全符合R1C1格式要求。

你可以运行这个修正后的宏，i从1到14都能正常生成正确的公式了。

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