Excel VBAでVLOOKUPを使いこなす方法【初心者向け解決ガイド】

皆さん、こんにちは！今日は、ExcelのVBAでVLOOKUP関数を活用する方法についてお話しします。Excelを使っていて、「特定の値を探して、その関連情報を取得したい」と思ったことはありませんか？そんな時に役立つのがVLOOKUP関数です。今回は、VBAでこの関数を使う方法を、初心者の方にもわかりやすく解説していきます。

VLOOKUP関数とは？
VBAでのVLOOKUPの使い方
1. 基本的な使用例
2. エラー処理の追加
実践VBAでVLOOKUPを使ってみよう
よくある質問や疑問
1. VLOOKUP関数で大文字と小文字を区別できますか？
2. VLOOKUP関数で複数の条件で検索できますか？
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUP関数とは？

Excelのイメージ

まず、VLOOKUP関数について簡単におさらいしましょう。VLOOKUPは、指定した値を表の最初の列で検索し、その値に対応する別の列の値を取得する関数です。例えば、商品コードから商品名を取得する、といった場面で活躍します。

VBAでのVLOOKUPの使い方

では、VBAでVLOOKUP関数を使用する方法を見ていきましょう。VBAでは、Application.WorksheetFunction.VLookupを使って、Excelのワークシート関数を呼び出すことができます。

基本的な使用例

例えば、以下のようなコードでVLOOKUP関数を使用できます。

vba

Dim result As Variant

result = Application.WorksheetFunction.VLookup(lookupValue, tableArray, colIndex, False)

ここで、

– `lookupValue`検索する値
– `tableArray`検索対象の範囲
– `colIndex`取得したい値がある列番号

を指定します。

エラー処理の追加

VLOOKUP関数は、検索値が見つからない場合にエラーを返します。そのため、エラー処理を追加しておくと安心です。例えば、以下のように記述します。

vba

Dim result As Variant

On Error Resume Next

result = Application.WorksheetFunction.VLookup(lookupValue, tableArray, colIndex, False)

If IsError(result) Then

    ' エラー時の処理

    result = "Not Found"

End If

On Error GoTo 0

このようにすることで、エラーが発生してもプログラムが停止せず、適切な処理を行うことができます。

実践VBAでVLOOKUPを使ってみよう

それでは、具体的な例を見てみましょう。以下のような商品リストがあるとします。

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

このリストから、商品コードを使って商品名を取得するVBAコードを作成してみましょう。

vba

Sub 商品名を取得()

    Dim 商品コード As String

    Dim 商品名 As Variant

    商品コード = "002" ' 取得したい商品コードを指定

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

    If IsError(商品名) Then

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

    Else

        MsgBox "商品名は " & 商品名 & " です。"

    End If

End Sub

このコードを実行すると、「商品名はバナナです。」と表示されます。