连续计算非空单元格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

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

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