如何为Excel F列所有单元格插入带动态值的QM_Stream_Delta函数

原脚本中Cells(i, "F").Value(myFormula(OptionSymbol))属于语法错误，原因是错误地将Value属性当作方法调用，且未正确构建带单元格引用的公式字符串。以下是两种正确的实现方式：

方法1：循环逐个设置公式 #

适合数据量较小的场景，逻辑直观：

Sub GetDelta()
    Dim FinalRow As Long
    Dim i As Long
    ' 获取A列最后一行的行号（用Long避免行号超出Integer范围）
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' 从第9行遍历到A列最后一行
    For i = 9 To FinalRow
        ' 给F列对应单元格设置公式，引用当前行的A列单元格
        Cells(i, "F").Formula = "=QM_Stream_Delta(A" & i & ")"
    Next i
End Sub

关键修正点：

• 将Integer类型改为Long，避免Excel行数超过32767时出现溢出错误
• 直接拼接生成完整公式字符串，A" & i & "会自动对应每行的A列单元格（如第9行对应A9）
• 使用Formula属性赋值，而非错误的Value(...)调用方式

方法2：批量设置公式（更高效） #

适合数据量较大的场景，无需循环，执行速度更快：

Sub GetDelta()
    Dim FinalRow As Long
    Dim targetRange As Range
    ' 获取A列最后一行的行号
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' 定义F列需要设置公式的目标区域
    Set targetRange = Range("F9:F" & FinalRow)
    ' 用R1C1相对引用格式批量设置公式，RC[-5]代表当前行、当前列左移5列（即A列）
    targetRange.FormulaR1C1 = "=QM_Stream_Delta(RC[-5])"
End Sub

关键优势：

• 一次性给整个目标区域赋值公式，避免循环遍历的性能损耗
• RC[-5]是相对引用语法，会自动适配每行的A列单元格，无需手动拼接行号

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