Как отобразить все строки в VBA из последнего ряда?

Question

В электронной таблице LastRow на самом деле равен 32, но когда я запускаю эту подпрограмму, она скрывает все до строки 30 и оставляет скрытыми как 31, так и 32. Любая помощь?

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 возвращает последнюю видимую строку (с данными) ...

В этом случае будет работать:

ActiveSheet.UsedRange.Rows.count

Даже если я никогда не рекомендую использовать это ...