編譯錯誤：語法錯誤或運行時錯誤'1004'：應用程序定義或對象定義的錯誤“最后一行和CountIF”

Question

我正在嘗試向最后一行數據下面兩行添加計數。

如果我在條件周圍加上引號，則會得到並編譯錯誤，就像將公式直接添加到Excel中一樣（顯示的代碼）。 如果刪除它們，則會出現運行時錯誤。

Dim ARRow As Long
     ARRow = Range("T" & rows.Count).End(xlUp).Row
        If ARRow < 2 Then ARRow = 2
     Cells(ARRow + 1, "T").Formula = "=Sum(T2:T" & ARRow & ")"
     Cells(ARRow + 2, "T").Formula = "=Countif(T2:T" & ARRow & ",">0")"

最后一行是我得到錯誤的地方

Answer 1

字符串中的引號需要加倍才能轉義。

Cells(ARRow + 2, "T").Formula = "=Countif(T2:T" & ARRow & ","">0"")"