LOOKUP VBAの最終値を求める数式

Question

ルックアップ式をWorksheet関数に変換したいが、Type mismatchエラーが表示されます。

この式は正常に動作します。

=LOOKUP(2,1/(SalesDB!I6:I3005="FLOUR"),SalesDB!K6:K3005) 

これは私がVlookup式がそれに動作しないように列から最後の値を検索したいType mismatchエラー

ActiveSheet.Range("Q9").Value = Application.WorksheetFunction.Lookup(2, 1/(Sheets("SalesDB").Range("$I$6:$I$3005") = "FLOUR"), Sheets("SalesDB").Range("$K$6:$K$3005")) 

を求められます。エラーを解決するにはどうすればよいですか？

Answer 1

'trick' you are using with the LOOKUP functionは、VBAに簡単に変換されません。単純なFindメソッドを使用して、検索順序を逆にして（パラメータSearchDirection:=xlPrevious）最後に一致するものを見つけ、Offset関数を使用して列を渡って必要な値を取得できます。

Option Explicit 

Sub Test() 

    ActiveSheet.Range("Q9").Value = LastVlookup("FLOUR", Sheets("SalesDB").Range("$I$6:$K$3005"), 3) 

End Sub 

Function LastVlookup(varLookup As Variant, rngData As Range, lngOffset As Long) As Variant 

    LastVlookup = rngData.Find(_ 
     What:=varLookup, _ 
     LookIn:=xlValues, _ 
     LookAt:=xlWhole, _ 
     SearchDirection:=xlPrevious).Offset(0, lngOffset - 1).Value 

End Function