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

我是VBA和Excel的新手，我想获得Excel工作表中已使用行的数量

目前我有以下代码：

Private Sub

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

End Sub

我的问题是，有时最后一行是隐藏的（height=0），但我希望代码仍然对它们进行计数。 如何做到这一点

---

提前谢谢

您好，您可以在下面的代码中尝试查找最后一行，即使该行是隐藏的

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

---

很好，谢谢！：）只是一个小错误：它是书面的工作表，而不是工作表。根据您的情况，您可以应用：

Worksheets（“Sheet1”）.UsedRange.Rows.Count