Excel VBA 将公式后跟文本输入单元格或单元格公式

Question

我的计数工作正常，如下所示：

Sheet2.Range("A1").End(xlDown).Offset(1, 3).FormulaR1C1 = "=COUNTA(R2C:R[-1]C)"

我希望单元格的计数后跟单词“Schemes”

我试过了

Sheet2.Range("A1").End(xlDown).Offset(1, 3).FormulaR1C1 = "=COUNTA(R2C:R[-1]C)"  & "Schemes"

但失败了。我不确定引号。我也试过使用 + 和 AND 但还是不行。

Answer 1

请这样尝试：

Sheet2.Range("A1").End(xlDown).Offset(1, 3).FormulaR1C1 = "=COUNTA(R2C:R[-1]C)&"" Schemes"""

连接字符（&）必须在公式字符串内部，并且在代码编写公式时任何双引号都必须加倍。我还认为 space 必须让公式结果和结束字符串之间...

Answer 2

您可以使用 With 和两行：

With Sheet2.Range("A1").End(xlDown).Offset(1, 3)
.FormulaR1C1 = "=COUNTA(R2C:R[-1]C)"
.Value = .Value & "Schemes"
End With

Excel VBA to input formula followed by text into cell or cell formula