在一行中计算非空单元格excel vba

Question

在尝试计算一行（本例中为第二行）中的非空单元格时遇到语法问题，excel vba。

尝试过.rows（2：2）.rows（2）.cells（B1：B999）接受了所有三个错误。

Dim intCount As Integer 
    intCount = CountA(ActiveSheet.Rows(2, 2)) 

Answer 1

​​不是VBA函数，它是一个工作表函数。试试这个：

Dim intCount as integer 
intCount = Application.WorksheetFunction.CountA(Activesheet.Rows(2))