使用CountIf和text的VBA CountIf

Question

我试图让一个公式显示上一列"C“(RC3)中出现的次数。

理想的结果应该是：

计数:3

如果在上一行中出现了3次该值。

以下代码返回"False“。

y.FormulaR1C1 = "Count: " + "=Application.WorksheetFunction.CountIf(range(R3C3:R" & LR & "C3), " = "&R[-1]C3)"

Y是个细胞

LR是最后一行。

谢谢，如果我能进一步澄清的话，请告诉我。

Answer 1

只要在测试字符串中，CountIf函数就永远不会计数任何内容。而且，您不需要单元格公式中的“Application.WorksheetFunction”(只有当您想在VBA中完全使用该函数时)。此外，您不需要Excel公式中的range函数。试试这个：

y.FormulaR1C1 = "=""Count: ""&CountIf(R3C3:R" & LR & "C3,R[-1]C3)"

尽管在搜索范围和标准单元格之间没有任何内容，但是可以通过以下方法完全消除LR：

y.FormulaR1C1 = "=""Count: ""&CountIf(R3C3:R[-2]C3,R[-1]C3)"

Answer 2

如果您试图创建一个将文本和内置函数结合在一起的公式，请使用=CONCATENATE()。考虑下面的例子：

​

​

如果要使用VBA使用相对位置(.FormulaR1C1)填充公式，则如下所示：

=CONCATENATE("Count: ",COUNTIF(R[-5]C:R[-2]C,"=" &R[-1]C))