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

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

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

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

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

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

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

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

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

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

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

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

結果：

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

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

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

1. 「Alt」 + 「F11」キーを押し続けて「Microsoft Visual Basic for Applications」ウィンドウを開きます。
2. 「挿入」 > 「モジュール」をクリックし、「モジュール」ウィンドウに以下のコードを貼り付けます。

   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

3. コードウィンドウを保存して閉じ、ワークシートに戻り、以下の数式を入力し、「Enter」キーを押して必要な正しい結果を取得します。スクリーンショットを参照してください。

   =VlookupUnique(E2, A2:A17, C2:C17, ", ")

   
   

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