Excelで重複のない2つのリストを結合するにはどうすればよいですか？

ワークシートに2つのリストがあり、そのリスト内のいくつかの値が重複している場合、これらの2つのリストを結合して一意の値だけを残したいとします。以下のスクリーンショットのように、どのように行えばよいでしょうか？

Excelで「重複を削除」を使用して重複のないリストを結合する

VBAを使用して重複のないリストを結合する

Kutools for Excelを使用して重複のないリストを結合する

Excelで「重複を削除」を使用して重複のないリストを結合する

Excelで2つのリストを結合し、重複する値を削除するには、次のように操作できます：

1. 2つのリストの一方をコピーし、もう一方のリストの下に貼り付けます。スクリーンショットをご覧ください：

2. リストを選択し、「データ」＞「重複を削除」をクリックします。スクリーンショットをご覧ください：

3. 「 重複を削除」ダイアログボックスで、列にヘッダーがない場合は「データにヘッダーが含まれている」のチェックを外し、「OK」をクリックします。スクリーンショットをご覧ください：

4. その後、画面にダイアログが表示され、重複が削除されたことを知らせます。「OK」をクリックしてください。スクリーンショットをご覧ください：

結果は次のようになります：

VBAを使用して重複のないリストを結合する

Excelでは、VBAを使用して2つのリストを重複なしに結合することもできます。

1. ALTキーを押しながらキーボードのF11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞ 「モジュール」をクリックし、VBAコードをモジュールにコピーします。

VBA：重複のないリストを結合する

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. 「実行」ボタンをクリックするか、F5キーを押してVBAを実行します。

4. 画面上にダイアログが表示され、結合したい範囲を選択できます。スクリーンショットをご覧ください：

5. 「OK」をクリックすると、別のダイアログがポップアップして、結合結果を出力するセルを選択できます。スクリーンショットをご覧ください：

6. 「OK」をクリックします。これでリストが結合されていることが確認できます。

ヒント：上記のVBAを実行した後、結果はセルの書式設定を保持できません。

Kutools for Excelを使用して重複のないリストを結合する

Kutools for Excelがインストールされている場合、「重複および一意のセルを選択」機能を使用して、重複なしに2つのリストを結合する問題を解決できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手する

1. 2つのリストの一方をコピーし、もう一方のリストの下に貼り付けます。新しいリストを選択し、「Kutools」＞「選択」＞「重複および一意のセルを選択」をクリックします。スクリーンショットをご覧ください：

2. 「 重複および一意のセルを選択」ダイアログボックスで、「すべての一意の値（最初の重複を含む）」をチェックし、「OK」をクリックします。

3. ダイアログがポップアップして、選択された一意の値の数を通知します。「OK」と「キャンセル」をクリックして2つのダイアログを閉じます。スクリーンショットをご覧ください：

4. 選択された一意の値をコピーし、新しい列に貼り付けます。スクリーンショットをご覧ください：

「重複および一意のセルを選択」についてさらに詳しくはこちらをクリックしてください。

関連記事：

• 2つの列間で一意の値を見つける
• 2つの列で重複する値を見つける