使用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，並使用＆＆進行連接