Excel VBA宏实现增长率公式批量填充问题咨询

看起来你的宏出问题主要是两个原因：VBA字符串里的双引号没有正确转义，还有可能是没有适配德语Excel的公式语法。我来帮你修正代码，顺便解释清楚问题所在：

问题根源 #

1. 双引号转义错误：在VBA中，如果你想在字符串里表示一个实际的双引号（比如公式里的空字符串判断K9=""），必须用两个连续的双引号来转义。你原来的代码里直接写了单个双引号，VBA会把它当成字符串的结束标记，导致语法错误。
2. 公式语法适配问题：你的Excel是德语版本，公式用分号;做参数分隔符，而VBA默认的.Formula属性要求用英文语法（逗号,分隔，函数名用英文如IF）。如果想保留德语公式的写法，应该用.FormulaLocal属性。

修正后的宏代码 #

方案1：适配德语Excel（推荐） #

这个方案用.FormulaLocal，直接保留你熟悉的德语函数和分号分隔符，只需要把双引号正确转义：

Sub Growth()
    ' 给O9单元格设置德语公式，注意双引号转义（每个"换成""）
    Tabelle3.Range("O9").FormulaLocal = "=WENN(ODER(K9="""";L9="""");"""";WENNFEHLER((L9-K9)/K9;""""))"
    ' 向下填充到O14
    Tabelle3.Range("O9:O14").FillDown
End Sub

方案2：用英文语法的公式 #

如果你想用VBA默认的.Formula属性，需要把函数名换成英文，分号换成逗号：

Sub Growth()
    ' 英文语法的公式，逗号分隔参数
    Tabelle3.Range("O9").Formula = "=IF(OR(K9="""",L9=""""),"""",IFERROR((L9-K9)/K9,""""))"
    Tabelle3.Range("O9:O14").FillDown
End Sub

额外优化：自动适配数据行数 #

如果你的数据行数不是固定到14行，可以改成动态获取最后一行，让宏更灵活：

Sub Growth()
    Dim lastRow As Long
    ' 找到K列最后一行有数据的行（假设K和L列数据同步）
    lastRow = Tabelle3.Cells(Tabelle3.Rows.Count, "K").End(xlUp).Row
    
    ' 设置O9的公式
    Tabelle3.Range("O9").FormulaLocal = "=WENN(ODER(K9="""";L9="""");"""";WENNFEHLER((L9-K9)/K9;""""))"
    
    ' 如果最后一行大于9，才执行填充
    If lastRow > 9 Then
        Tabelle3.Range("O9:O" & lastRow).FillDown
    End If
End Sub

这样不管你新增多少行数据，宏都会自动填充到最后一行，不用手动修改范围啦。

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