回答編集履歴
1
誤字修正
answer
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
Q列の値をキーにVLOOKUPして結果をA列にセットする？？
|
|
3
3
|
元のシートの説明がないと、回答難しいと思います。
|
|
4
4
|
|
|
5
|
-
「worksheetfunctionクラスのVlookupプロパティを取得できません
|
|
5
|
+
「worksheetfunctionクラスのVlookupプロパティを取得できません」のエラーは、VLOOKUPの結果、検索値が見つからないときに発生するようなので、見つからないときの処理を書けばいいのではないかと思います。
|
|
6
6
|
こちらの勝手な解釈で書いてみました。
|
|
7
7
|
|
|
8
8
|
|
|
@@ -43,4 +43,4 @@
|
|
|
43
43
|
- ループの中でCSVファイルを何度も読むのは無駄だと思ったので先頭で読んでいます。
|
|
44
44
|
- ループがよく分からなかったので、Q列基準にループに勝手に直しました。
|
|
45
45
|
- vlookupのところ、`wb.Sheets(1).Range("A1:E10")`に変えてます。A:Eの範囲だと広すぎて時間かかりませんか？数が多いと処理が重いと思います。
|
|
46
|
-
- `On Error Resume Next`でエラーを無視して、エラーがあった場合の処理を入れています。とりあえず今はエラー内容をそのままセットとしましたが、値がない旨の表示にすべきです。`On Error Resume Next`を書くのは本当はもっと上の方がいいと思います。
|
|
46
|
+
- `On Error Resume Next`でエラーを無視して、エラーがあった場合の処理を入れています。とりあえず今はエラー内容をそのままセットとしましたが、値がない旨の表示にすべきです。`On Error Resume Next`を書くのは本当はもっと上の方がいいと思いますが説明上わかりやすくしています。
|