VBAテーブル列の値を持つ最後の行を検索

Question

私はいくつかの項目を持つテーブルを持っています。これらのアイテムはすべてコードを持ち、行ごとに繰り返されます。私は、テーブル内のアイテムの最後の「繰り返し」を1つにすることを意味します。アドレスや行の参照が必要なので、後で新しいテーブルに持っていくことができます。最初の表に示されている私たちのアイテムの現在の状況の概要。

'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 

ポイントはそう、それはよりダイナミックにすることであろう そして、私はほとんどそれは、次のコードを持っています非常に特定の範囲のパラメータにfindメソッドを制限しないために...

Answer 1

dim inCol整数

inCol =ワークシート（ "Sheet1"）Cells.Find（What：= "Product Code"、After：=ワークシート（ "Sheet1"））、Range（ "A1"）、LookIn：= xlValues、ルックアット：= xlWhole、SearchOrder：= xlByRows、SearchDirection：= xlPrevious）.Column

私がコメントすることはできませんが、これは、あなたがマクロ意志を記録した場合に名前を与えられた列番号が

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