VBA技術

VBAのVLOOKUP関数とは？関数の解説と使用例

ENGINEER.CLUB編集部

• 最終更新日:2026/2/4

はじめに
Excel関数をVBAでも同じ機能を使いたいと思ったことはありますか？
ここでは、Excel関数のVLOOKUP関数をVBAで使う方法について解説していきます。

１．VLOOKUP関数について

１-１．VLOOKUP関数とは

VLOOKUP関数は、
「指定した検索範囲の一番左の列をキーとして、一致した行から指定した列のデータを取得」関数です。
Excelの関数にも同じ名前で似た処理を行う関数が存在します。

１-１-１．Excel関数との違い

Excel関数にも、「VLOOKUP」関数が存在します。処理としては違いはほぼありません。
検索する範囲や件数によっては、Excel関数では処理に時間がかかる場合があります。

１-２．VLOOKUP関数の構文

VLOOKUP関数の構文は、下記のようになります。

WorksheetFunction.Vlookup([検索する値], [検索する範囲], [取得する列番号], [検索方法])。

オプションの説明：

２．VLOOKUP関数の使用例

２-１．基本的な使用例

表１の中から、「東京都」の「人口」値を取得したい場合は、下記の様にします、
表１　

Sub main1()
    Dim str As String   '検索したい文字列を設定
    Dim ret As String   '検索した結果を設定
    
    str = "東京都"
    ret = WorksheetFunction.VLookup(str, Range("B3:D10"), 2, False)

    MsgBox (str + "の人口" + ret + "万人です")
End Sub

結果：　

２-２．特殊な書き方をする場合

２-２-１．別シートの表を指定する場合

実行するシートとは別のシートを指定する場合は、下記のように範囲を指定します。

Sub main2()
    Dim str As String   '検索したい文字列を設定
    Dim ret As String   '検索した結果を設定
    
    str = "東京都"
    ret = WorksheetFunction.VLookup(str, Worksheets("一覧表").Range("B3:D10"), 2, False)

    MsgBox (str + "の人口" + ret + "万人です")
End Sub

結果：

２-２-２．複数条件で検索

VLOOKUP関数では複数条件で検索することはできませんが、下記の方法をすることで行うことはできます。
指定する範囲の一番左の列に条件にしたい項目を連結して検索条件にする

例）
入社年と出身地を条件にしたい場合は、表2のように左端に条件を連結した列を作成し、
それを条件としてVLOOKUP関数を使用する
表2.

Sub main3()
    Dim str As String
    Dim str1 As String   '検索したい文字列を設定
    Dim str2 As String   '検索したい文字列を設定
    Dim ret As String   '検索した結果を設定
    
    str1 = "2005"
    str2 = "東京都"
    str = str1 + str2
    ret = WorksheetFunction.VLookup(str, Range("A1:D8"), 2, False)

    MsgBox (str1 + "年入社、かつ" + str + "出身は" + ret + "さんです")
End Sub

結果：

３．最後に

　Excelの関数と同じ処理を行える関数は他にもあります。
　関数で行うか、VBAの処理で行うかは、行う内容やデータ数によります。
　うまく使い分けて活用してください。