Excel で重複を除いて VLOOKUP を行い、複数の値を取得するにはどうすればよいですか？

Excel でデータを扱う際、特定の検索条件に一致する複数の値を取得したい場合があります。しかし、標準の VLOOKUP 関数では単一の値しか返せません。複数の一致が存在し、それらを重複なしで1 つのセルに表示したい場合は、代替の方法でこの要望を実現できます。

---

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

Excel 365 またはExcel 2021 をご利用なら、TEXTJOIN 関数と FILTER 関数を活用して、この処理を簡単に実現できます。これらの関数を使えば、データを動的にフィルターし、その結果を1 つのセルにスマートに連結することが可能です。

空白セルに以下の数式を入力して「Enter」キーを押すと、重複のないすべての一致値が表示されます。スクリーンショットをご参照ください：

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

---

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

Excel で重複を除いた VLOOKUP を行い、複数の一致値を取得したいけれど、数式の手動入力や VBA が複雑に感じられるなら、「Kutools for Excel」が簡単で効率的な解決策を提供します。「一対多の検索」機能を使えば、わずか数回のクリックで、すべての一意な一致値を抽出し、1 つのセルに結合できます。

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

1. テキストボックス内の「リスト配置エリア」と「検索値の範囲」をそれぞれご指定ください。
2. ご希望のテーブル範囲を選択してください。
3. ドロップダウンリストから、それぞれ 「キーカラム」と「返すカラム」を指定してください。
4. 最後に、「OK」ボタンをクリックしてください。
   

結果：

これで、重複のないすべての一致値が正しく抽出されていることをご確認いただけます。スクリーンショットをご覧ください：

---

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

Excel 365 またはExcel 2021 をお持ちでない場合は、以下に示すユーザー定義関数を代わりにご利用いただけます。これにより、同様の結果を得ることが可能です。

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 テクニックやヒントを知りたい方は、当社ウェブサイトに数千ものチュートリアルをご用意しています。

---