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

Question

I have the count working fine as below:

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

I want the cell to have the count followed by the word "Schemes"

I have tried

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

but fails. I am not sure about the quototation marks. I also tried using + and AND but also not working.

Answer 1

Please, try it in this way:

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

The concatenation character ( & ) must be inside the formula string and any double quotes must be doubled when the code writes the formula. I also thought that a space must be let between the formula result and the ending string...

Answer 2

You can use With and two lines:

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