Поиск первой и последней ячейки с заданным значением

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поиск первой и последней ячейки с заданным значением (Макросы/Sub)

emkub

Дата: Суббота, 21.04.2018, 19:16 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, друзья!

Подскажите пожалуйста, как найти последнюю ячейку с данными "20".

Как найти первую, я уже понял: [vba]

Код

aa = Application.WorksheetFunction.Match(20, Sheets(1).Range("C1:C20000"), 0)

[/vba]
Читал, что, чтобы найти последнюю, то нужно последний "0" заменить на "-1". - Выдаёт ошибку...
Если взять 20 в кавычки, то просто выдаёт последнюю ячейку заданного диапазона (в данном случае 20000)
Файл прикрепил.
Заранее благодарю.

К сообщению приложен файл: _Microsoft_Exce.xlsm (13.1 Kb)

Ответить

Kuzmich

Дата: Суббота, 21.04.2018, 19:26 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 717

Репутация: 159 ±

Замечаний: 0% ±

Excel 2003

Цитата

как найти последнюю ячейку с данными "20"

[vba]

Код

Sub g()
Dim c As Long
aa = Application.WorksheetFunction.Match(20, Sheets(1).Range("C1:C20000"), 0)
c = Columns("C").Find("20", Range("C1"), xlValues, xlWhole, xlByRows, xlPrevious).Row
Cells(1, 1) = aa
Cells(2, 1) = c
End Sub

[/vba]