将公式值转换为变量

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)：category

发出错误

  

参数不是可选的！

并突出显示.Countif。

Answer 1

WorksheetFunction.CountIf方法有2个参数，在这个长连接中只有一个：

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

也许你应该改变这个：

& "," &

到此：

,

我无法回答你所提出的问题和表现。