連續計算非空單元格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))