Excel VBAでVLOOKUPエラーを回避する方法【初心者向け解決ガイド】

2025.02.27

皆さん、Excelで作業中に「VLOOKUP関数」を使っていて、エラーが出て困った経験はありませんか？特にVBA（Visual Basic for Applications）でこの関数を使うと、エラーが発生してプログラムが止まってしまうことがあります。今回は、そんなエラーを回避する方法を初心者の方にもわかりやすくお伝えします。

VLOOKUP関数とは？
VBAでVLOOKUP関数を使う際のエラーの原因
エラーを回避する方法
1. 1. On Error Resume Nextを使う方法
2. 2. IFERROR関数を使う方法
よくある質問や疑問
1. VLOOKUPで数値を検索してもエラーが出ます。どうすればいいですか？
2. エラーが発生したときに、特定の値を返すことはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUP関数とは？

Excelのイメージ

まず、VLOOKUP関数について簡単におさらいしましょう。VLOOKUPは、指定した値を表の中から縦方向に探し、対応する列の値を返してくれる関数です。例えば、商品コードから商品名を探すときなどに便利ですね。

VBAでVLOOKUP関数を使う際のエラーの原因

VBAでVLOOKUP関数を使うとき、以下のような原因でエラーが発生することがあります

ここがポイント！

検索値が見つからない場合
データの型が一致しない場合（例えば、数値と文字列の不一致）

これらの状況では、プログラムがエラーを出して停止してしまいます。

エラーを回避する方法

では、具体的にエラーを回避する方法を見ていきましょう。

1. On Error Resume Nextを使う方法

この方法では、エラーが発生してもプログラムを続行させ、後でエラー処理を行います。以下にサンプルコードを示します。

vb

Sub SampleVLookup()

    Dim result As Variant

    On Error Resume Next ' エラーを無視して次の行へ

    result = Application.WorksheetFunction.VLookup("検索値", Range("B10"), 2, False)

    If IsEmpty(result) Then

        MsgBox "データが見つかりませんでした。"

    Else

        MsgBox "結果は " & result & " です。"

    End If

    On Error GoTo 0 ' エラー無視を解除

End Sub

このコードでは、エラーが発生した場合でもプログラムが停止せず、適切なメッセージを表示します。

2. IFERROR関数を使う方法

もう一つの方法は、VLOOKUP関数とIFERROR関数を組み合わせて、エラー時に特定の値を返すようにする方法です。

vb

Sub SampleVLookupWithIFERROR()

    Dim formula As String

    formula = "=IFERROR(VLOOKUP(""検索値"", B10, 2, FALSE), ""データなし"")"

    Range("C1").Formula = formula

    Range("C1").Value = Range("C1").Value ' 結果を値として貼り付け

End Sub

この方法では、エラーが発生した場合に「データなし」と表示されるようになります。