VBA Поиск последней строки со значением в таблице Столбец

Question

У меня есть таблица с несколькими элементами в ней. У всех этих элементов есть код, и они будут повторяться последовательно подряд. Я хочу выделить последнее «повторение» элемента в таблице, мне нужно иметь ссылку на адрес или строку, с которой я могу работать, поэтому я могу позже привести ее в новую таблицу, где я буду делать ежемесячную обзор текущего состояния наших изделий, представленных в первой таблице. И я почти получил, следующий код:

'codTeste is a integer in this example 
codTeste = Range("AE:AE").Find(what:="REST0300", after:=Range("AE1"), searchdirection:=xlPrevious).Row 

ли работать, но это не есть способ, как так:

codTeste = Range(tblDesc.DataBodyRange.Address).Find(what:="REST0300", after:=Range(TheFirstCellOfTheRelevantColumnDataBodyRange), searchdirection:=xlPrevious).Row 
    'If I do this it'll throw me a mismatch error 

точка было бы сделать его более динамичным, так чтобы не ограничивать метод находку очень специфический параметр диапазона ...

Answer 1

dim inCol as integer

inCol = Рабочие листы («Sheet1»). Cells.Find (что: = «Код продукта», после: = Рабочие листы («Лист1»). Диапазон («A1»), LookIn: = xlValues, LookAt: = xlWhole, SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Column

Я не могу комментировать, но это будет найти номер столбца дал имя @steps

Answer 2

Это работает для меня:

Dim trng As Range, f As Range, inCol As Long 
Set trng = ActiveSheet.ListObjects("Table1").DataBodyRange 

useCol = 2 

Set f = trng.Columns(inCol).Find(what:="77", LookIn:=xlValues, lookat:=xlWhole, _ 
     searchdirection:=xlPrevious, after:=trng.Columns(inCol).Cells(1)) 

If Not f Is Nothing Then Debug.Print f.Row