Excelで重複のない複数の値をVLOOKUPして返す方法

Author: Xiaoyang Last Modified: 2025-08-26

Excelでデータを扱う際、特定の検索条件に対して複数の一致する値を返す必要がある場合があります。しかし、デフォルトのVLOOKUP関数は単一の値しか取得しません。複数の一致が存在し、それらを重複なく単一のセルに表示したい場合、これを達成するための代替方法を使用できます。

return multiple values without duplicates

Excelで重複のない複数の一致する値をVLOOKUPして返す

TEXTJOINとFILTER関数を使用して
強力な機能を使用して
ユーザー定義関数を使用して

TEXTJOINとFILTER関数で重複のない複数の一致する値を返す

Excel365またはExcel2021を使用している場合、TEXTJOINとFILTER関数を活用してこれを簡単に達成できます。これらの関数は、データの動的なフィルタリングと結果を単一のセルに連結することを可能にします。

以下の数式を空白のセルに入力して結果を出力し、「Enter」キーを押して重複のないすべての一致する値を取得してください。スクリーンショットを参照してください。

=TEXTJOIN(", ", TRUE, UNIQUE(FILTER(C2:C17, A2:A17=E2)))

return multiple values without duplicates with textjoin function

この数式の説明：

FILTER(C2:C17, A2:A17=E2)は、列Aの製品がE2の検索値と一致する場合、列Cのすべての名前を抽出します。
UNIQUEは重複する値を削除します。
TEXTJOIN(", ", TRUE, ...)は、結果として得られた一意の値をカンマで区切って単一のセルに結合します。

強力な機能で重複のない複数の一致する値を返す

Excelで重複のない複数の一致する値をVLOOKUPして返したいが、手動の数式やVBAが複雑すぎると感じる場合、「Kutools for Excel」は簡単で効率的なソリューションを提供します。「一対多の検索」機能を使用すると、数回のクリックで一意の一致するすべての値を単一のセルに迅速に抽出して統合できます。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

「Kutools」 > 「スーパーLOOKUP」 > 「一対多の検索（複数の結果を返す）」をクリックして「一対多の検索」ダイアログボックスを開き、ダイアログボックスで操作を指定します。

テキストボックスで「リスト配置エリア」と「検索対象範囲」をそれぞれ選択します。
使用したい参照表の範囲を選択します。
「キーカラム」と「返却列」ドロップダウンからキーカラムと返却列をそれぞれ指定します。
最後に、「OK」ボタンをクリックします。

結果：

今、すべての一致する値が重複する項目なしで抽出されているのがわかります。スクリーンショットを参照してください。
return multiple values without duplicates by kutools

ヒント：

データを区切るために異なる区切り文字を使用したい場合は、「オプション」をクリックして希望の区切り文字を選択できます。さらに、結果に対して合計や平均などの他の計算を実行することもできます。
more options for handling the results

ユーザー定義関数で重複のない複数の一致する値を返す

Excel365またはExcel2021を持っていない場合、以下のユーザー定義関数を代替として使用できます。この方法では、

古いバージョンのExcelでも重複のない複数の一致する値を返すことができます。

「Alt」 + 「F11」キーを押し続けて「Microsoft Visual Basic for Applications」ウィンドウを開きます。

「挿入」 > 「モジュール」をクリックし、「モジュール」ウィンドウに以下のコードを貼り付けます。

VBAコード：重複のない複数の一致する値をVLOOKUPして返す：

  Function VlookupUnique(lookupValue As String, lookupRange As Range, resultRange As Range, delim As String) As String
    Dim cell As Range
    Dim result As String
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    For Each cell In lookupRange
        If cell.Value = lookupValue Then
            If Not dict.exists(resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value) Then
                dict.Add resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value, True
                result = result & delim & resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value
            End If
        End If
    Next cell 
    If Len(result) > 0 Then
        VlookupUnique = Mid(result, Len(delim) + 1)
    Else
        VlookupUnique = ""
    End If
End Function

コードウィンドウを保存して閉じ、ワークシートに戻り、以下の数式を入力し、「Enter」キーを押して必要な正しい結果を取得します。スクリーンショットを参照してください。
```
=VlookupUnique(E2, A2:A17, C2:C17, ", ")
```

注釈：上記の数式では、E2はVLOOKUPしたい条件であり、A2:A17は検索が行われる範囲、C2:C17は返す値の範囲、「, 」は結果を区切るための区切り文字です。

合計すると、Excelで重複のない複数の一致する値をVLOOKUPして返すための効果的な方法がいくつかあります。ニーズとExcelのバージョンに最適な方法を選択してください。これらの技術を使用すると、Excelで重複のない複数の一致する値を簡単に返すことができます。さらにExcelのヒントやトリックを探求したい場合は、当社のウェブサイトで数千のチュートリアルを提供しています。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数