ExcelマクロでVLOOKUP関数を使いこなす！初心者でもわかる実践ガイド

Excelを使っていると、別のシートやブックから必要な情報を引っ張ってきたい場面がよくありますよね。そんなときに便利なのが、VLOOKUP関数とExcelマクロ（VBA）です。今回は、初心者の方でもわかりやすく、実際の仕事で役立つ方法をお伝えします。

VLOOKUP関数とは？
ExcelマクロでVLOOKUPを使う方法
エラー処理と注意点
実務での活用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUP関数とは？

Excelのイメージ

VLOOKUP関数は、指定した値を検索範囲の最左列で探し、その行から指定した列の値を返す関数です。例えば、商品コードから商品名を取得する場合などに使います。

基本構文



=VLOOKUP(検索値, 範囲, 列番号, 検索方法)

* 検索値探したい値（例商品コード）
* 範囲検索する範囲（例A列からC列）
* 列番号返したい値がある列の番号（例3）
* 検索方法TRUE（近似一致）またはFALSE（完全一致）

例



=VLOOKUP(, B2:D10, 3, FALSE)

この式は、セルの値をB2からD10の範囲で検索し、見つかった行の3列目の値を返します。

ExcelマクロでVLOOKUPを使う方法

Excelマクロを使うと、複数のセルに対してVLOOKUPを自動で適用できます。以下に、VBAを使った基本的な方法を紹介します。

1. WorksheetFunctionを使う方法

vba

Sub VLookupUsingWorksheetFunction()

    Dim result As Variant

    result = Application.WorksheetFunction.VLookup("商品A", Range("B2:D10"), 3, False)

    MsgBox result

End Sub

このコードは、「商品A」をB2からD10の範囲で検索し、見つかった場合はその行の3列目の値をメッセージボックスで表示します。

2. セルに数式を埋め込む方法

vba

Sub VLookupUsingFormula()

    Range("E2").Formula = "=VLOOKUP(, B2:D10, 3, FALSE)"

End Sub

このコードは、E2セルにVLOOKUPの数式を直接入力します。数式がセルに入力されるので、後から値を変更することができます。

エラー処理と注意点

VLOOKUPを使う際、以下の点に注意しましょう。

検索値が見つからない場合`#N/A`エラーが表示されます。これを防ぐために、`IFERROR`関数を使ってエラー時の処理を追加することができます。

vba

  Sub VLookupWithErrorHandling()

      On Error Resume Next

      Dim result As Variant

      result = Application.WorksheetFunction.VLookup("商品Z", Range("B2:D10"), 3, False)

      If Err.Number <> 0 Then

          MsgBox "商品が見つかりません"

          Err.Clear

      Else

          MsgBox result

      End If

      On Error GoTo 0

  End Sub

データ型の不一致検索値と範囲内のデータ型が一致しないと、正しく動作しないことがあります。例えば、検索値が文字列なのに、範囲内のデータが数値の場合などです。データ型を確認し、必要に応じて変換するようにしましょう。

実務での活用例

例えば、社員名簿があり、別のシートに社員の部署情報があるとします。VLOOKUPを使って、社員名から部署名を自動で取得することができます。

vba

Sub GetDepartment()

    Dim employeeName As String

    Dim department As String

    employeeName = Range("").Value

    On Error Resume Next

    department = Application.WorksheetFunction.VLookup(employeeName, Sheets("部署情報").Range("B100"), 2, False)

    If Err.Number <> 0 Then

        Range("B2").Value = "部署不明"

        Err.Clear

    Else

        Range("B2").Value = department

    End If

    On Error GoTo 0

End Sub

このコードは、セルの社員名を「部署情報」シートで検索し、見つかった場合はB2セルに部署名を表示します。見つからない場合は「部署不明」と表示します。