Excel VBA-运行时错误'1004'

Question

我有一些VBA代码，我想在其中使用R1C1将公式复制到一系列单元格中。 不幸的是，倒数第二行出现以下错误：
Runtime error '1004': Application-defined or object-defined error.

Dim pct As Single
pct = 1

With ThisWorkbook.Sheets("Data").UsedRange
    Dim lastR As Long
    lastR = .Rows.Count 
    Dim lastC As String
    lastC = col_letter(.Columns.Count)
End With

With ThisWorkbook.Sheets("Calculations")
    .Range("A1:" & lastC & 1).Value = 100
==> .Range("A2:" & lastC & lastR + 1).FormulaR1C1 = "=R[-1]C*(1+" & pct / 100 & "*'Data'!R[-1]C"
End With

我在这里做错了什么？

Answer 1

您在公式中可能缺少括号

"=R[-1]C*(1+" & pct / 100 & ")*'Data'!R[-1]C"

Answer 2

我认为您正在运行非英语版本的Excel / Office。 因此可能存在数字分隔标记的问题。 必须使用. (dot) 函数中的. (dot)定义为字符串，然后由formulaR1C1 property传递给Excel。 然后将其转换为, (comma) ，这是将函数放入excel单元格所需的。 因此，这行对我有用，没有错误：

....=Replace("=R[-1]C*(1+" & pct / 100 & ")*Data!R[-1]C", ",", ".")

还有一件事，我删除了工作表名称的'' (single quotation marks) 。