Форум по VBA, Excel и Word

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 14 апреля 2019, 18:17

Название: Excel VBA Макросы: Как найти последнюю заполненную строку в умной таблице?
Отправлено: Посетитель от 14 апреля 2019, 18:17
Вставил на лист умную таблицу. Использую для поиска последней строки такой код:
lr= sh_Nal.Cells(sh_Nal.Rows.Count, 2).End(xlUp).row 'вычисление номера строки

Столбец 2 пустой, но lr показывает последнюю строку 5 (умная таблица растянута до строки 5).
Можно как-то поправить?
Название: Re: Excel VBA Макросы: Как найти последнюю заполненную строку в умной таблице?
Отправлено: Администратор от 14 апреля 2019, 18:25
Вот так можно ещё искать последнюю строку:
    ' Поиск последней заполненной строки в столбце B.
    lr = sh_Nal.Columns("B").Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row
Название: Re: Excel VBA Макросы: Как найти последнюю заполненную строку в умной таблице?
Отправлено: Посетитель от 14 апреля 2019, 19:17
спасибо