VBA公式和文本在特定的单元格中

我想要有一些VBA代码将公式和文本的值放入特定的单元格。 我想要代码说引线:(公式的值)。 目前我的代码运行公式,并将值放在正确的框中。 我只是不知道如何添加文本。 我有的代码写在下面。

ws.Range("$B$1").Formula = "=COUNTIF(E:E,""Lead"")" 

一个自定义的Range.NumberFormat属性会给你显示的结果,而将实际的原始值保留为数字forms,以便进一步计算或比较。

 with ws with .range("B1") '<~~ no need for absolute $ anchors here .formula = "=COUNTIF(E:E,""Lead"")" .numberformat = "[=1]L\e\a\d\: 0;L\e\a\d\s\: 0" end with end with 

尝试这个:

 ws.Range("$B$1").Formula = "=""Leads:("" & COUNTIF(E:E,""Lead"")&"")""" 

所以在应用时它会像下面这样结束:

 ="Leads:(" & COUNTIF(E:E,"Lead")&")"