Ошибка Complie: синтаксическая ошибка или ошибка времени выполнения «1004»: ошибка приложения или объекта «Last Row and CountIF» - PullRequest
0 голосов
/ 14 июня 2019

Я пытаюсь добавить счетчик в строку на две строки ниже моей последней строки данных.

Я получаю и компилирую ошибку, если я добавляю кавычки вокруг критериев, как если бы я добавлял формулу непосредственно в 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")"

В последней строке я получаю сообщение об ошибке

1 Ответ

1 голос
/ 14 июня 2019

Кавычки в строках должны быть удвоены, чтобы избежать их.

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