エクセルVBAでLOOKUP関数がうまくできません

質問

エクセルVBAでLOOKUP関数がうまくできません。
入力シートと判別用のシートがあり入力シートで入力した品名を検索値
として判別用シートで数値に置き換えた値をLOOKUPで検索したいのですが
WorksheetFunctionクラスのVLOOKUPプロパティを取得できませんと
実行時エラーが出ます。検索しましたが修正方法がわかりません。
構文のどこが原因なのか教えてください。
VBA初心者です。よろしくお願いします。

sub test()
Dim データ行 As Long
Dim データ数 As Long

データ行 = Cells(Rows.Count,8).End(xlUp).Row
For データ数 = 11 To データ行
Cells(データ数 ,32) = Application.WorksheetFunction.VLookup(cells(データ数,8),Worksheets("判別シート").Range("B11:E110"),5,False)

Next データ数
End sub

回答No.1

caim · ベストアンサー

単刀直入に間違っているところは、
＞Cells(データ数 ,32) = Application.WorksheetFunction.VLookup(cells(データ数,8),Worksheets("判別シート").Range("B11:E110"),5,False)
の行の最後の　("B11:E110"),5, の部分です。

範囲指定はＢ列～Ｅ列なので、合計4列ですが、上記の文だと左から5番目の列が指定されています。
範囲指定を１列分広くする（B11:F110）か、列番号の指定を５から４に変更すると上手く動作すると思います。

ちなみに1件でも返される値がない場合は同じようなエラーがでます。（セルに#REF!と出るのではなく、実行時エラーのことです）
ワークシート関数をVBAで使用しているだけなので、数式ではなく値が返されます。数式そのものを入力したい場合は、FormulaプロパティかValueプロパティを使うとよいでしょう。
※すでにご存知でしたら、余計なお世話ですね、、、。

お礼

初歩的ミスで質問してしまいましたが最後の回答文参考になりました。
ありがとうございました。