エクセルのマクロが上手く働いたり働かなかったりです。

質問

ブック「住所録管理」で以下をオートマクロで作り、C7セルに郵便番号を入力するとブック「郵便」の郵便番号から住所を参照してC8:D8セルにコピーペーストするようにしましたが、VLOOKUPが上手く働いたり働かなかったりします。
ブック「郵便」には
A 　　 B 　　 C
郵便番号　　 住所 フリガナ

の形式で、2000件以上のデータがありますが、多すぎる為でしょうか？

VLOOKUP以外の方法でも構いませんので、何か良い方法がありましたらご教授下さいます様、宜しくお願いします。

Sub 住所検索()

Application.ScreenUpdating = False

Dim myFileName As String
myFileName = ThisWorkbook.Path & "\郵便.xls"
Workbooks.Open Filename:=myFileName

Windows("住所録管理.xls").Activate
Range("C8:D8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C,[郵便.xls]Sheet1!R1C1:R1838C2,2)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("郵便.xls").Activate
ActiveWindow.Close

Application.ScreenUpdating = True

End Sub

回答No.2

merlionXX · ベストアンサー

> 1838行以下にあるものは全てダメな感じです。

1838行以下が検索範囲に入ってないのでは？
VLOOKUPの式を御確認ください。

お礼

あっ！ありがとうございました＆超超スミマセンでした。

回答No.1

noname#123709

ちゃんと見てませんが、通常VLOOKUPを使う時はデータを昇順に並び替えて
おく必要があります。
その作業を不要とする為にもVLOOKUP関数の最後の引数にFALSEを指定して
おく方が良いのではないでしょうか。
"=VLOOKUP(R[-1]C,[郵便.xls]Sheet1!R1C1:R1838C2,2,FALSE)"
で直りませんか？

お礼

早速のご解答ありがとうございました。
おっしゃる様にFALSEを付けました。
その結果ですが、今まで誤表示された場合の所が＃N/Aとエラー表示されます。
ブック「郵便」の上位にあるものは正確に（総て試す訳にもいきませんので断言できませんが）表示されるのですが、1838行以下にあるものは全てダメな感じです。