Excel VBA输入公式，然后在单元格或单元格公式中输入文本

编程问答 2022-06-21

问题描述

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

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

我希望该单元格具有计数，后跟“方案”一词

我尝试过

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

但失败。我不确定引号。我也尝试使用+和AND，但也无法正常工作。

解决方法

请以这种方式尝试：

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

串联字符（&）必须在公式字符串内，并且在代码编写公式时，任何双引号都必须加倍。我还认为公式结果和结尾字符串之间必须留一个空格...

,

您可以使用With和两行：

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