＃値！マクロ

Question

を使用したとき、私は何をするsupossedは何

Public Function LastVersionOwned(rCol As Range, versionOwned As Range) As Range 
    Set LastVersionOwned = Application.WorksheetFunction.Lookup(2, 1/(rCol = rCol.Find("*", rCol.Cells(1), , , , xlPrevious)), versionOwned) 
End Function 

をこのVBコードを使用してい範囲で最後の非空の行を見つけ、その行のヘッダを取得するには、その値を使用しますが、時にされます私はそれを使用して、＃VALUEを返します！ rColは範囲（空でない最後の値、たとえばC12：F12を取得したい行のリスト）であり、versionOwnedはテーブルのヘッダーです（範囲も静的C11：F11）

この

Public Function LastVersionOwned(rCol As Range) As Range 
    Set LastVersionOwned rCol.Find("*", rCol.Cells(1), , , , xlPrevious) 
End Function 

そして、私は=LOOKUP(2,1/(C12:F12=LastVersionOwened(C12:F12)),C$11:F$11) を行うExcelでそれが仕事のようそれ、私はこのバグを修正することができますどのように任意のアイデア？

おかげ

Answer 1

私はこの問題は、あなたがあなたの式の「アレイへのアレイ」を比較し、あなたが実際にRangeにRangeを比較するために可能ではないVBAで同じことを、やろうとしていることだと思います。そして実際にVBAの 'Array to Array'を比較するのはちょっと長くなるでしょう。だから私は

Public Function LastVersionOwned(rCol As Range, versionOwned As Range) 
    LastVersionOwned = Application.WorksheetFunction _ 
     .Lookup(rCol(1, rCol.Columns.Count).End(xlToLeft).Value, rCol, versionOwned) 
End Function 

は私はこれがあなたのニーズ