我让计数正常工作,如下所示:
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"
但是失败了。我对引号不是很确定。我还尝试使用+和和,但也不起作用。
发布于 2020-09-11 12:28:33
请这样尝试:
Sheet2.Range("A1").End(xlDown).Offset(1, 3).FormulaR1C1 = "=COUNTA(R2C:R[-1]C)&"" Schemes"""
连接字符(&
)必须在公式字符串内,并且在代码编写公式时,任何双引号都必须是双引号。我还认为公式结果和结束字符串之间必须留一个空格……
发布于 2020-09-11 12:34:54
您可以使用With
和两行代码:
With Sheet2.Range("A1").End(xlDown).Offset(1, 3)
.FormulaR1C1 = "=COUNTA(R2C:R[-1]C)"
.Value = .Value & "Schemes"
End With
https://stackoverflow.com/questions/63846980
复制相似问题