VLOOKUPの繰り返し処理がうまくいかない

投稿者 : プラ     投稿日時 : 2024/10/13(Sun) 11:43:40     OS : Windows 10     EXCEL : Excel 2016

---

初歩的な質問で申し訳ありませんが、よろしくお願いします。
別のファイルから元ファイル特定列の最終行まで値を取得するように、VLOOKUPで繰り返し処理を行いたいのですが、以下のようなコードで実行してもエラーにはならないのですが、値が取得できません（手動でVLOOKUPすると取得可能）
どうしても原因がわからず困っています。
アドバイスいただけますと幸いです。よろしくお願いします。


　　Set Ws = Workbooks("リスト.xlsm")
Dim i As Long
For i = 2 To Ws.Worksheets("一覧").Cells(1, 5).End(xlDown).Row
On Error Resume Next
Ws.Worksheets("一覧").Cells(i, 19) = WorksheetFunction.VLookup(Cells(i, 5), Workbooks("リスト2.csv").Worksheets("リスト2").Range("A:A"), 1, False)
Next i

投稿者 : さんこう     投稿日時 : 2024/10/13(Sun) 12:08:34

---

＞エラーにはならないのですが

これ↓があるので、エラーがでません。
＞On Error Resume Next

削除もしくはコメントアウトして、エラーがでるか確認してみてはいかがでしょうか。

投稿者 : ピロリ     投稿日時 : 2024/10/13(Sun) 14:32:27

---

WorksheetFunction.VLookup(Cells(i, 5), ・・・ )
　　　　　　　　　　　　　　　↑
ここのセルだけ ブックやシートを指定していないのが 少し気になりましたが。
( 他は、Ws.Worksheets("一覧").Cells(1, 5).End(xlDown).Row とか、指定してるのに･･･ )
問題無いようであれば、ご免なさい。　読み捨てて下さい。

投稿者 : プラ     投稿日時 : 2024/10/13(Sun) 17:01:38

---

さんこう様、ピロリ様、ありがとうございます！

ピロリさんから指摘いただいた箇所について、ブック名等を指定したところうまくいきました。

おふたりとも早速のアドバイスありがとうございました！