使用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）中值为“ Event”的单元格的计数.End（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，并使用＆＆来串联