excel - 代码计数使用 Excel 行但忽略隐藏行

Question

我是 Excel 的 VBA 新手，我想在我的 excel 工作表中获取已使用行的数量。

目前我有这个代码:

Private Sub

LastRow = Range("A" & Rows.Count).End(xlUp).row
Msgbox LastRow

End Sub

我的问题是，有时最后一行是隐藏的(高度 = 0)，但我希望代码仍然计算它们。
这个怎么做？

提前致谢!

Answer 1

嗨，即使该行被隐藏，您也可以尝试下面的代码来查找最后一行

Dim WS As Worksheet
Dim LastCell As Range
Set WS = Thisworkbook.Worksheets("Sheet1")
With WS
    Set LastCell = .Columns(1).Find(what:="*", _
        after:=.Cells(.Rows.Count, "A"), _
        LookIn:=xlFormulas, _
        lookat:=xlPart, searchdirection:=xlPrevious)
End With
Debug.Print LastCell.row