将公式值转换为variables

代码：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) 

也许你应该改变这个：

 & "," & 

对此：

 , 

我不能更多地回答你提出的问题。