使用VBA在一个单元格中插入公式

Question

我知道已经询问了这个主题，我尝试复制如何在一个单元格中插入公式，但是，我的vba代码出现错误。

这是我的代码：

ws.Range("C9").Formula = "=CountIf(wsRD.Range(C & Rows.count).End(xlUp).Row, ""Event"")"   'CountIf(wsRD.Range("C" & Rows.count).End(xlUp).Row, "Event") 'count(Search("Event", wsRD.Range("C" & Rows.count).End(xlUp).Row, 1))

我需要在ws.Range（“ C9”）中插入一个公式，其中它汇总了wsRD.Range（“ C”＆Rows.count）.End（）中值为“ Event”的单元格的计数xlUp）。 我可以知道代码中的问题吗？ 感谢您的帮助。

谢谢。

Answer 1

如果需要，可以摆脱LRow变量，而只需将其放在等式中。

Dim LRow as Long
LRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row

ws.Range("C9").Formula = "=COUNTIF(C10:C" & LRow & ", ""Event"")"

Answer 2

我确定这可能是正确的答案

ws.Select
LRow = ws.Range("C" & Rows.Count).End(xlUp).Row

Range("C9").FormulaLocal = "=COUNTIF(C10:C" & LRow & ";""Event"")"

因此，基本上，我使用FormulaLocal编写公式的方式与在Excel中编写公式的方式相同，然后，由于公式必须为大字符串，因此将其分成2个字符串，放入值LRow，并使用＆＆进行连接