перевод формула значение переменной

Question

Код: VBA

Sheets("Facebook").Activate 

catcount(1) = Application.WorksheetFunction.CountIf(cndtnltrnsfr.Col_Letter(posval(1)) & "2:" & cndtnltrnsfr.Col_Letter(posval(1)) & emptyRow & "," & chr(34) & cat(1) & chr(34)) 

MsgBox catcount(1) 

catcount(1): массив, в котором количество раз, категория происходит хранится

posval(1): массив, который хранит позицию определенного значения

cat(1): категория

Это дает ошибку

Аргумент не является обязательным!

и выделение .Countif.

Answer 1

Метод WorksheetFunction.CountIf принимает 2 аргумента, и у вас есть только один в этой длинной конкатенации:

cndtnltrnsfr.Col_Letter(posval(1)) & "2:" & cndtnltrnsfr.Col_Letter(posval(1)) & emptyRow & "," & chr(34) & cat(1) & chr(34) 

Может быть, вы должны изменить это:

& "," & 

к этому:

, 

Я не могу больше ответить на то, что вы попросили и показали.