Vlookup 2列目に入らない

Question

F列とB列の"名前"でVlookupをして、GとH列を埋めます。
G列には、入るのですが、H列の"誕生日"に何も入りません。エラーは出ません。
どうしてかわからないです。
Vlookupの第3引数には、GHが７ 、８列目なので、引数a （7 to 8)からマイナス５をすれば、2列目と3列目になると思って下記のように書いております。
どなたか、初歩的な質問だと思いますが、よろしくお願いいたします。

vba

Sub aaa()
Dim i
Dim lr
lr = Range("c2").End(xlDown).Row
Dim a
For a = 7 To 8
For i = 2 To Range("F2").End(xlDown).Row
On Error Resume Next
Cells(i, a) = WorksheetFunction.VLookup(Range("F" & i), Range(Cells(2, 2), Cells(lr, 3)), a - 5, False)
Next i
Next a
End Sub

Answer 1

Cells(i, a) = WorksheetFunction.VLookup(Range("F" & i), Range(Cells(2, 2), Cells(lr, 3)), a - 5, False)

3列目までしか設定していないからでは。

Cells(i, a) = WorksheetFunction.VLookup(Range("F" & i), Range(Cells(2, 2), Cells(lr,4 )), a - 5, False)

でいいと思いますよ

エラーは出ません。

On Error Resume Next
してるので、エラーになってもスルーしてる感じですね

Comments

[robben]

おっしゃるとおり、とても簡単なミスを見落としていました。ありがとうございます。
何か他に私の書いたコードで無駄な点はありませんか？
特に変数の使い方や、cellsやrangeの使い方など。

ちなみに、本当は、エラーのセルにはスルーではなく、何か特定の文字（例えばハイフンなど)を入れるようにしたいです。今自分ができるやり方だと、resume next で、一連のvlookupが終わったあとで、
If を使って、空欄に入力するというやり方しかないです。

それらは、on error go to ～exit sub　などでより短く書くことができるでしょうか？
（やり方は、これからいったん自分で調べてみるつもりです）

[xail2222]

On Error Resume Next
でエラーをスルーした後でエラーの内容をErr.Numberとかで確認できます。

具体的には
On Error Resume Next
Cells(i, a) = WorksheetFunction.VLookup(Range("F" & i), Range(Cells(2, 2), Cells(lr, 4)), a - 5, False)
If Err.Number <> 0 Then
（エラー時の処理）
End If

とかやれると思います。

[robben]

詳しいご説明ありがとうございます。