Как вывести на экран значение последней заполненной ячейки диапазона?

Пользователь

Сообщений: 349 Регистрация: 15.04.2018

14.05.2018 12:28:15

Доброго времени суток, друзья!
Есть диапазон значений, находящийся в столбце 'D', необходимо вывести на экран значение самой последней заполненной ячейки диапазона. Подскажите, пожалуйста, как реализовать. Спасибо, друзья!

Улыбнись.

Sanja Модератор Сообщений: 16516 Регистрация: 10.01.2013	#2 14.05.2018 12:31:51 КАК ОПРЕДЕЛИТЬ ПОСЛЕДНЮЮ ЯЧЕЙКУ НА ЛИСТЕ ЧЕРЕЗ VBA? Согласие есть продукт при полном непротивлении сторон

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

14.05.2018 12:31:59

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=74999&MID=s
https://support.microsoft.com/en-us/help/291308/how-to-select-cells-ranges-by-using-visual-basic-pro...
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=97730&am...
...

Судя по всему попытка поиска даже не совершалась.

По вопросам из тем форума, личку не читаю.

falmrom

Пользователь

Сообщений: 349 Регистрация: 15.04.2018

14.05.2018 12:47:49

БМВ, спасибо. Решил пользоваться кодом:

Код
Kolichestvo = Range("J:J").Find("*", Range("J1"), xlValues, xlWhole, xlByRows, xlPrevious) ' поиск последней заполненной ячейки в столбце J, начиная с J1

Улыбнись.

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

14.05.2018 12:58:07

falmrom,
будьте бдительны это: Kolichestvo = Range("J:J").Find("*"...
не найдет последнюю заполненную ячейку в колонке Д

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Дмитрий Щербаков

Пользователь

Сообщений: 14895 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

14.05.2018 13:21:05

Цитата
Ігор Гончаренко написал: не найдет последнюю заполненную ячейку в колонке Д

и не учитывает скрытые строки и столбцы

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

14.05.2018 13:35:00

Дмитрий Щербаков, Раз уж подключились. Давеча проскользнула тема с вопросом, как определить последнюю заполненную ячейка столбца в отфильтрованном диапазоне, при этом скрытые строки должны учитываться.
End(xlUp).Row - пропустить скрытые значения.
UsedRange. - не подходить так как даст с пустыми, если последние ячейки столбца диапазона не заполнены.
SpecialCells - тоже не то
Find - тоже что и End(xlUp).Row при скрытых

ну не Lookup же листа использовать!
.

По вопросам из тем форума, личку не читаю.

StoTisteg Пользователь Сообщений: 441 Регистрация: 07.05.2018	#8 14.05.2018 13:42:11 БМВ, навскидку приходит в голову только костыль — запомнить скрытие, раскрыть, End(xlUp).Row, скрыть как было...

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

14.05.2018 13:45:47

Цитата
StoTisteg написал: костыль — запомнить скрытие,

Не красиво, да и перебрать массив проще. При этом от последней строки до той которую End(xlUp).Row найдет, ведь скрытые которые нас интересуют между ними, а значит весь диапазон столбца перебирать не нужно.

По вопросам из тем форума, личку не читаю.

Дмитрий Щербаков

Пользователь

Сообщений: 14895 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#10

14.05.2018 13:47:54

Цитата
БМВ написал: ну не Lookup же листа использовать!

вот как ни странно - но таки-да, можно его. Хотя в спорных ситуациях можно и комбинировать(если использовать функции листа не хочется):
сначала UsedRange - для определения глобально последней ячейки
далее End или Find(зависит от того, есть ли конкретный столбец для определения) - для определения последней видимой ячейки.
А потом, если значения не равны, то загоняю в массив данные от последней видимой до последней и цикл снизу вверх до первой заполненной.

Изменено: Дмитрий Щербаков - 14.05.2018 13:48:27

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

_Boroda_

Пользователь

Сообщений: 1517 Регистрация: 27.07.2013

Контакты см. в профиле

#11

14.05.2018 13:56:09

Код
dd = ActiveSheet.AutoFilter.Range.Count

Прикрепленные файлы

5445848.xlsm (14.96 КБ)

Изменено: _Boroda_ - 14.05.2018 14:13:46

Скажи мне, кудесник, любимец ба’гов...

MOTO

Пользователь

Сообщений: 235 Регистрация: 29.03.2017

#12

14.05.2018 14:10:57

формула массива

Код
=ИНДЕКС(D:D;ПОИСКПОЗ(1;ЕСЛИ(D:D>0;)))

Прикрепленные файлы

falmrom.xlsx (8.53 КБ)

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

#13

14.05.2018 14:12:30

_Boroda_,
см.вложение

Прикрепленные файлы

5445848.xlsm (14.44 КБ)

Изменено: Ігор Гончаренко - 14.05.2018 14:13:10

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

#14

14.05.2018 14:23:42

_Boroda_, Александр это не указал, забыл , но оно тоже покажет не последнюю в конкретном столбце, а если фильтр по нескольким столбцам то совсем беда ..
, ну и конечно просто скрытые строки тоже могут быть, без фильтра.

Цитата
Дмитрий Щербаков написал: А потом, если значения не равны, то загоняю в массив данные от последней видимой до последней и цикл снизу вверх до первой заполненной.

ну собственно писали почти одновременно я #9 Вы #10 :-)

По вопросам из тем форума, личку не читаю.

_Boroda_

Пользователь

Сообщений: 1517 Регистрация: 27.07.2013

Контакты см. в профиле

#15

14.05.2018 14:41:12

Игорь, да, согласен. Но все-таки пригодится:

Код
With sh.AutoFilter r1_ = .Range.Count / .Range.Columns.Count End With

можно использовать вместо UsedRange.Rows.Count. Диапазон проверки может (не обязательно) стать намного меньше. Да и бывает, что через несколько строк под таблицей с автофильтром некоторые особо шустрые товарищи пытаются еще какие-то данные написать. Тогда UsedRange вообще не прокатит

Изменено: _Boroda_ - 14.05.2018 14:41:36

Скажи мне, кудесник, любимец ба’гов...

sokol92 Пользователь Сообщений: 4661 Регистрация: 10.09.2017	#16 14.05.2018 14:43:00 Читаем и перечитываем классику . Владимир

falmrom Пользователь Сообщений: 349 Регистрация: 15.04.2018	#17 27.05.2018 18:21:35 Ігор Гончаренко, спасибо за внимательность, но при внедрении строки в код, я, естественно, поменял адрес столбца Улыбнись.

falmrom Пользователь Сообщений: 349 Регистрация: 15.04.2018	#18 27.05.2018 18:25:43 Всем большое спасибо за такую детальную проработку вопроса, но мне для работы кода, хватило одной строки, которую я и указал выше. Нюансы, которые обсуждались далее - пригодятся позже! Большое всем спасибо за заблаговременные ответы))) Улыбнись.