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

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

1 个答案: