行xの空白でないセルを数える

Question

達成しようとしているのは、行内の空白でないセルを数えようとすることです。lRow。マクロの3行目にエラーがあります。私はそれをどのように修正するのか分かりません。

Sub CountNonEmptyCells() 

    lRow = Cells(Rows.Count, 1).End(xlUp).Row 

    Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count 
    MsgBox lRow 

End Sub 

Answer 1

気にしないが、私はそれを自分自身を固定：

Sub CountNonEmptyCells() 

    lRow = Cells(Rows.Count, 1).End(xlUp).Row 

    x = Rows(lRow).SpecialCells(xlCellTypeConstants, 23).Cells.Count 
    MsgBox x 

End Sub