运行时错误 1004（使用循环将公式添加到单元格区域）

Question

由于某种原因，以下代码生成 1004 运行时错误。这是一个简单的循环，可使用上方 3 行单元格中的值和特定单元格中的“=”符号将公式添加到单元格区域中。

上面 3 行的单元格包含一个公式作为文本，如下所示：IF(OR($A5="",W5<=0),"",RANK(W5,$W$5:$W$9248,0))

我尝试对 'eq' 值（即 '=' 符号）进行硬编码，但错误仍然存​​在，但如果您将其设为另一个字符，则它可以正常工作。我现在没有主意了。

提前致谢。

Sub insertFormula()

Application.ScreenUpdating = False

'Set variables
Dim c, rng As Range
Dim eq As String

Set rng = ActiveSheet.Range("S5:W5")
eq = ActiveSheet.Range("S1").Value 'This cell holds the = sign

'Loop through range and apply formula
For Each c In rng
    c.Value = eq & c.Offset(-3, 0).Value
Next c

Application.ScreenUpdating = True

End Sub

Answer 1

另一种解决方案是使用 RC Notation

Sub insertFormula()

    'Set variables
    Dim rng As Range

    Set rng = ActiveSheet.Range("S5:W5")
    rng.Formula = "=R[-3]C"

End Sub

一行

 ActiveSheet.Range("S5:W5").Formula = "=R[-3]C"

更新根据 OP 的评论，似乎需要类似的东西

For Each c In rng
    c.Formula = "=" & c.Offset(-3, 0).Value & ""
Next c

您可以编写字符串以将它们用作公式，但您需要将它们放在引号之间

更新 2 单元格中似乎有一些空格可能导致运行时错误 1004。请先尝试清除字符串

For Each c In rng
    c.Formula = "=" & WorksheetFunction.Clean(c.Offset(-3, 0).Value) & ""
    'c.Formula = "=" & c.Offset(-3, 0).Value & ""
Next c

更新 3 字符串也可能包含不间断空格。你也可以删除它。

Dim s As String

For Each c In rng
    s = WorksheetFunction.Clean(c.Offset(-3, 0).Value)
    s = Replace(s, Chr(160), "")
    c.Formula = "=" & s
    'c.Formula = "=" & c.Offset(-3, 0).Value & ""
Next c