VBA生成带单引号的SUM公式无法去除，求代码问题排查

你的代码生成带单引号的SUM公式，核心原因是混用了FormulaR1C1属性和A1样式的公式字符串。

FormulaR1C1是VBA中专门用于R1C1引用格式的属性（比如R12C6对应A1格式的F12），但你赋值时写的是A1样式的"=SUM(F" & c1 & ":F" & c2 & ")"，Excel无法正确解析这种混合格式，就会把引用当成文本路径自动加上单引号，导致出现=SUM('F12':'F91')这类错误公式。

另外，你的代码还有两个需要优化的细节：

1. 变量声明不严谨：Dim c1, c2 As Long里，c1会被默认声明为Variant类型，应该明确指定为Long；
2. 循环逻辑有问题：处理完小计行后c1 = c2会导致后续求和范围重复包含之前的行，正确的起始行应该是当前小计行的下一行；
3. 硬编码循环到9999效率低，应该获取H列最后一行数据行号来终止循环。

修正后的代码方案 #

方案1：改用Formula属性（推荐，直接支持A1样式公式） #

把ActiveCell.FormulaR1C1替换为Range("F" & i).Formula，同时修正变量声明和循环逻辑：

Sub Step7()
' Step 7 : Insert S code for VBA formula Input
' S - Subtotal
' Prepare formula to each Code
Dim c1 As Long, c2 As Long
Dim i As Long, LastRow As Long

' 获取H列最后一个有数据的行号，避免无效循环
LastRow = Cells(Rows.Count, "H").End(xlUp).Row
c1 = 2 ' 第一组数据的起始行

For i = 2 To LastRow
    If Range("H" & i).Value = "s" Then
        ' 当遇到小计行时，计算从c1到i-1的范围求和
        c2 = i - 1
        Range("F" & i).Formula = "=SUM(F" & c1 & ":F" & c2 & ")"
        ' 更新下一组的起始行（跳过当前小计行）
        c1 = i + 1
    End If
Next i
End Sub

方案2：改用R1C1格式公式（如果坚持用FormulaR1C1） #

把A1样式的引用转换成R1C1格式（F列是第6列，所以用C6表示）：

Sub Step7()
' Step 7 : Insert S code for VBA formula Input
' S - Subtotal
' Prepare formula to each Code
Dim c1 As Long, c2 As Long
Dim i As Long, LastRow As Long

LastRow = Cells(Rows.Count, "H").End(xlUp).Row
c1 = 2

For i = 2 To LastRow
    If Range("H" & i).Value = "s" Then
        c2 = i - 1
        Range("F" & i).FormulaR1C1 = "=SUM(R" & c1 & "C6:R" & c2 & "C6)"
        c1 = i + 1
    End If
Next i
End Sub

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