Excel VBAでVLOOKUPを使って複数の一致を取得する方法

2025.03.11

みなさん、こんにちは！今日は、ExcelのVLOOKUP関数を使って、複数の一致する値を取得する方法についてお話しします。通常、VLOOKUPは最初に見つかった一致のみを返しますが、少し工夫することで、複数の一致を取得することが可能です。特に、Excel VBAを使ってこの機能を実現する方法を見ていきましょう。

VLOOKUPの基本的な使い方
VLOOKUPで複数の一致を取得する必要性
VBAを使って複数の一致を取得する方法
関数の使い方
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUPの基本的な使い方

Excelのイメージ

まず、VLOOKUP関数の基本をおさらいしましょう。VLOOKUPは、指定した値を範囲内で検索し、その値に対応する列のデータを返す関数です。例えば、商品名から価格を取得する際に便利です。

VLOOKUPで複数の一致を取得する必要性

しかし、同じ商品が複数回販売されている場合、VLOOKUPは最初の一致しか返しません。すべての販売記録を取得したい場合、これは不便ですよね。そこで、複数の一致を取得する方法が求められます。

VBAを使って複数の一致を取得する方法

Excelの標準関数だけでは限界があるため、VBA（Visual Basic for Applications）を使って、この問題を解決します。以下に、指定した値に一致するすべての結果を取得し、カンマで区切って1つのセルに表示するカスタム関数の例をご紹介します。

vba

Function VlookupAllMatches(LookupValue As Variant, LookupRange As Range, ColumnIndex As Integer) As String

    Dim Result As String

    Dim Cell As Range

    Result = ""

    For Each Cell In LookupRange.Columns(1).Cells

        If Cell.Value = LookupValue Then

            If Result = "" Then

                Result = Cell.Offset(0, ColumnIndex - 1).Value

            Else

                Result = Result & ", " & Cell.Offset(0, ColumnIndex - 1).Value

            End If

        End If

    Next Cell

    VlookupAllMatches = Result

End Function

この関数を使うと、例えば「商品A」のすべての販売日を取得し、1つのセルに「2025/03/01, 2025/03/05, 2025/03/10」のように表示できます。

関数の使い方

1. VBAエディタを開くExcelで`Alt + F11`を押してVBAエディタを開きます。
2. 新しいモジュールを挿入`挿入`メニューから`モジュール`を選択します。
3. コードを貼り付ける上記の関数コードを新しいモジュールに貼り付けます。
4. 関数を使用するExcelシートに戻り、セルに`=VlookupAllMatches(“商品A”, A2:B10, 2)`のように入力します。