添加'在VBA中编写公式时

Question

Range("C18").Select
ActiveCell.FormulaR1C1 = "='Raw Data'!A2"

当我将此添加到VBA时，在A2周围添加了额外的'，我该如何解决这个问题呢？

Answer 1

使用：

ActiveCell.Formula =“='原始数据'！A2”

Answer 2

您可以尝试稍微不同的方法：

Dim FormulaRng As Range

Set FormulaRng = Sheets("Raw Data").Range("A2")

Range("C18").Formula = "=" & FormulaRng.Address(False, False, xlA1, xlExternal)

注意：您不需要Select单元格，稍后使用ActiveCell.FormulaR1C1，您可以使用Range("C18").FormulaR1C1