如何从最后一行取消隐​​藏 VBA 中的所有行？

Question

On the spreadsheet, the LastRow is actually 32, but when I run this sub, it's unhiding everything before Row 30, and leaving both 31 and 32 hidden. Any help?

Dim I As Integer
Dim LastRow As Long
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
For I = 1 To LastRow
    Rows(I).EntireRow.Hidden = False
Next I

Answer 1

LastRow = Cells(Rows.Count, 4).End(xlUp).Row returns last visible row (with data)...

In this case will work:

ActiveSheet.UsedRange.Rows.count

Even if I never recommend using it...