Excel VBAでのVLOOKUP関数の使い方を初心者向けに解説

2025.03.01

皆さん、こんにちは。今日は、ExcelのVBAでVLOOKUP関数を使う方法についてお話しします。VLOOKUPは、Excelでデータを検索する際に非常に便利な関数ですが、VBAでも同様に活用できます。初心者の方にもわかりやすく解説していきますので、一緒に学んでいきましょう。

VLOOKUP関数とは？
VBAでVLOOKUP関数を使う方法
1. 具体的な例
エラー処理について
よくある質問や疑問
1. Q1: VLOOKUP関数と似た関数はありますか？
2. Q2: VLOOKUP関数を使用する際の注意点は何ですか？
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUP関数とは？

Excelのイメージ

まず、VLOOKUP関数について簡単におさらいしましょう。VLOOKUPは、指定した値を表の左端の列から探し、その行の中で指定した列の値を返す関数です。例えば、商品コードから商品名や価格を取得する際に使用します。

VBAでVLOOKUP関数を使う方法

では、VBAでVLOOKUP関数を使う方法を見ていきましょう。VBAでは、Excelのワークシート関数を呼び出す際に、`Application.WorksheetFunction`を使用します。具体的には、以下のように記述します。

vba

Dim result As Variant

result = Application.WorksheetFunction.VLookup(検索値, 範囲, 列番号, 検索方法)

ここで、`検索値`は探したい値、`範囲`は検索する表の範囲、`列番号`は取得したい値がある列の番号、`検索方法`は完全一致を指定する場合は`False`を設定します。

具体的な例

例えば、以下のような商品リストがあるとします。

商品コード	商品名	価格
001	りんご	100
002	バナナ	150
003	みかん	120

このリストから、商品コード「002」の商品名を取得したい場合、以下のようにVBAで記述します。

vba

Dim 商品コード As String

Dim 商品名 As String

商品コード = "002"

商品名 = Application.WorksheetFunction.VLookup(商品コード, Range("A2:C4"), 2, False)

MsgBox 商品名

このコードを実行すると、メッセージボックスに「バナナ」と表示されます。

エラー処理について

VLOOKUP関数を使用する際、検索値が見つからない場合にエラーが発生します。これを防ぐために、エラー処理を組み込むことが重要です。以下のように記述します。

vba

On Error Resume Next

商品名 = Application.WorksheetFunction.VLookup(商品コード, Range("A2:C4"), 2, False)

If Err.Number <> 0 Then

    MsgBox "商品が見つかりませんでした。"

    Err.Clear

Else

    MsgBox 商品名

End If

On Error GoTo 0

このようにすることで、検索値が見つからない場合でも、適切なメッセージを表示できます。