WorksheetFunction.VLookupを使って、他のシートにあるデータを取得したいのですが、参照することができません。

Question

現在、電話番号別にいくら料金が発生したのかという処理をVBAマクロで行っております。
普段は配列でデータを取得するのですが、Excel関数式の方が効率が良いとのご指摘があったので、Excel関数が実行できるWorksheetFunctionからVLookupを実行しました。
しかし、以下のエラーメッセージが表示されました。
実行時エラー'1004':
WorksheetFunctionクラスのVLookupプロパティを取得できません。
エラーコードの内容から参照先にデータがないという返事だったので、調べてみたのですが、
参照先にデータがあるものもはじかれました。

実行したコードは省略した形ではありますが、以下の通りになります。

sub 実行()
    WorkSheets("シート1").Select
    
    Dim key As String
    Dim i As Long

    key = Cells(2, 2).Value
    With Range("B2")
        .Offset(Columnoffset:=1).Value = WorksheetFunction.VLookup(key, Sheets("シート2").Range("B3:E1513"), 2) 'ここでエラー発生
        .Offset(Columnoffset:=2).Value = WorksheetFunction.VLookup(key, Sheets("シート2").Range("B3:E1513"), 3)
    End With
end Sub

コードを編集している時に一度はつながったのですが、エラー対応のためコードを弄っていたら繋がらなくなりました。

シート1
|ID|電話番号|社員名|社員番号|
|:--|:--:|--:|
||'08033334444||

シート2
|電話番号|社員名|社員番号|メールアドレス|
|:--|:--:|--:|
|関数式|関数式|関数式|関数式|

※個人情報に付き詳細は省略
シート2で値を表示させている関数式は以下の通りです。

=@IF(@INDEX(INDIRECT("シート3!f:f"),ROW()-2,1)<>"",INDEX(INDIRECT("シート3!f:f"),ROW()-2,1),"")

どのように対応すればよろしいでしょうか。
ご教授頂けると幸いです。

関数式だからエラーを起こすというのはありうることでしょうか？
変数keyをvariant型に宣言しても同様のエラーが発生します。

Answer 1

手動でセルに数式を入れてみたらどうなります？
数式でだめならマクロで書いてもだめでしょう。。。。

ちなみに、イミディエイトウィンドウに

?typename(Sheets("シート2").Range("B3").value)[Enter]

と入力してみたら何が返ってきます？（[Enter]はエンターキー押下の意味です。）

Comments

[zigutabi]

Rangeが返却されました。

[zigutabi]

手動で入力したらセルに#N/Aが入っておりました。
それでセルの値を確認したところゼロが切り詰められておりました。
電話番号を'08000000000から="08000000000"に変換したところ、
Excel関数式は動きました。

[zigutabi]

シートにアクセスしていることが確認できました。
そこから原因がわかり、対応することができました。
現在は、プロパティで文字列、フォーマットを指定して検索で見つかるようにしました。

Answer 2

VLookupの範囲にキー列が含まれていないので該当検索キーなしで上記アラートが表示されているのです。

シート２の電話番号はA列なので

Range("A3:E1513")

であればできる筈です。

但しキー項目がシート２に本当に存在しない場合は同様の結果となります。

Comments

[zigutabi]

あ、すみません、VLookupは左側を見ない仕様だったので省略してかいておりました。

[DreamTheater]

左側を見ない仕様とは何の仕様でしょうか？
VLookupの第２パラメータは検索文字列を含む範囲の筈ですが。。。

[zigutabi]

リファレンスで調べましたがVLookup関数は、検索範囲の先頭列と検索値とを比較し、合致した行の指定した列を返却するという意味です。
なので、VLookupで見た場合、C列が比較対象ならそれより左に位置するA列とB列は不要という意味です。

[DreamTheater]

シート２の電話番号がB列という意味ですか？
説明文にシートの列名がなかったので、左からABC順の列と解釈したんですが。。。

[zigutabi]

>>シート２の電話番号がB列という意味ですか？
そういう意味です。

Answer 3

推測ですが、シート1のB2は数値ではないでしょうか。
keyをStringで指定しているので、見た目が同じでも異なるものとして扱われます。

Dim key As Long

としてみてください。
違う場合はシート1とシート2のデータをサンプルでよいので提示してください。