编译错误：语法错误或运行时错误“ 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"")"