计算第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