公開日：2023/08/21

Excel VBAでVLOOKUP関数のエラー回避をする方法

この記事では、Excel VBAでVLOOKUP関数のエラー回避をする方法をご紹介します。

VLOOKUP関数でデータ検索をする際、検索値が存在しない場合や検索範囲が間違っている場合などにエラーが返されますが、エラーだけでは意味が分かりづらいので文字列を返すことで意味が分かりやすくなります。

以下では、エラーの代わりに指定した文字列を返すVBAコードをご紹介します。

VLOOKUP関数のエラーを回避するコード

VBAを使って、関数のエラーを回避するコードを下記に記載するので、コピーして使用してください。

コードの使い方は、下記「VBAでVLOOKUP関数のエラー回避をする方法」セクションを参考にしてください。

Sub VLOOKUP関数でエラーが出た場合はデータなしを返す()
    Dim searchValue As Range
    Dim searchRange As Range
    Dim resultCell As Range

    Set searchValue = Range("D2")  ' 検索値
    Set searchRange = Range("A2:C6")  ' 範囲
    Set resultCell = Range("E2")  ' 結果を表示するセル

    On Error Resume Next ' エラーの場合の対処法
    resultCell.Value = Application.WorksheetFunction.VLookup(searchValue.Value, searchRange, 2, False)
    If Err.Number <> 0 Then  ' エラーナンバーが０以外の場合
        resultCell.Value = "データなし"  ' 結果のセルに「データなし」と表示する
    End If
    On Error GoTo 0  ' エラー回避を解除する
End Sub

上記のコードではVLOOKUP関数でエラーが発生した場合、結果のセルに「データなし」と表示します。

例えば検索値が検索範囲内に存在しない場合は通常「＃N/Aエラー」が返されますが、上記のコードを使用すると「データなし」を返します。

「データなし」はダブルクォーテーション内を変えることで好きな文字列に変更可能です。

また、「検索値」と「範囲」と「結果を表示するセル」そして、VLOOKUP関数の引数に指定する「列番号」は、データ範囲に合わせて変更してください。