Вставьте формулу в одну ячейку, используя 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 (xlUp) .Row.Могу ли я знать, в чем проблема в моем коде?Ценю твою помощь.

Спасибо.

Answer 1

Я уверен, что это может быть правильный ответ

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

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

Так что в основном я использовал FormulaLocal для написания формулы так же, как я пишу ее в Excel, потому что формула должна быть большойСтрока, я разделил его на 2 строки, поместил значение LRow и использовал & & для объединения

Answer 2

Вы можете избавиться от переменной LRow и просто добавить ее в уравнение, если хотите.

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

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