Excel VBA Макросы: Как найти последнюю заполненную строку в умной таблице?

Автор Посетитель, 14 апреля 2019, 18:17

Посетитель

Вставил на лист умную таблицу. Использую для поиска последней строки такой код:
lr= sh_Nal.Cells(sh_Nal.Rows.Count, 2).End(xlUp).row 'вычисление номера строки

Столбец 2 пустой, но lr показывает последнюю строку 5 (умная таблица растянута до строки 5).
Можно как-то поправить?

Администратор

Вот так можно ещё искать последнюю строку:
    ' Поиск последней заполненной строки в столбце B.
    lr = sh_Nal.Columns("B").Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row