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

голоса
0

В таблице, то 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
Задан 13/02/2020 в 23:58
источник пользователем
На других языках...                            


1 ответов

голоса
1

LastRow = Cells(Rows.Count, 4).End(xlUp).Row возвращает последнюю строку видимую (с данными) ...

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

ActiveSheet.UsedRange.Rows.count

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

Ответил 14/02/2020 в 00:16
источник пользователем

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more