在第x行中计算非空白单元格

Question

我试图实现的是计算第lRow行中的非空白单元格。我在宏的第三行发生错误。我不知道如何解决它。

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