Excelで重複せずにXNUMXつのリストを組み合わせる方法は？

ワークシートにXNUMXつのリストがあり、リスト内の値の一部が重複しているため、以下のスクリーンショットに示すように、これらXNUMXつのリストを組み合わせて、一意の値を残すにはどうすればよいですか。

Excelで重複を削除して重複のないリストを組み合わせる

重複のないリストをVBAと組み合わせる

重複のないリストをKutoolsforExcelと組み合わせる

Excelで重複を削除して重複のないリストを組み合わせる

XNUMXつのリストを組み合わせて、Excelで重複する値を削除するには、次のようにします。

1. XNUMXつのリストの一方をコピーして、もう一方のリストの一番下に貼り付けます。スクリーンショットを参照してください。

2.リストを選択して、 且つ > 重複を削除する、スクリーンショットを参照してください：

3。 の中に 重複を削除する ダイアログ、列にヘッダーがない場合は、チェックを外します 私のデータにヘッダーがあります、[OK]をクリックします OK。 スクリーンショットを参照してください：

4.次に、重複が削除されたことを通知するダイアログが画面に表示されます。をクリックします。 OK。 スクリーンショットを参照してください：

結果を見ることができます：

重複のないリストをVBAと組み合わせる

Excelでは、VBAを使用してXNUMXつのリストを重複せずに組み合わせることができます。

1。 ホールド 頭の中 ボタンを押して F11 キーボードで開くには アプリケーション用 Microsoft Visual Basic 窓。

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 を実行した後、結果ではセルの書式設定を保持できません。

重複のないリストをKutoolsforExcelと組み合わせる

インストール済み Kutools for Excel、あなたは 重複と一意のセルを選択します 重複することなくXNUMXつのリストを組み合わせる問題を解決する関数。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手

1. XNUMXつのリストの一方をコピーして、もう一方のリストの一番下に貼り付け、新しいリストを選択して、[ クツール > 選択 > 重複と一意のセルを選択します。 スクリーンショットを参照してください：

2。 の中に 重複と一意のセルを選択します ダイアログ、チェック すべての一意（最初の複製を含む）、クリック Ok.

3.次に、選択された一意の値の数を示すダイアログがポップアップし、をクリックします。 OK • キャンセル XNUMXつのダイアログを閉じます。 スクリーンショットを参照してください：

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

Selectduplicatesとuniquecellsの詳細については、ここをクリックしてください。

関連記事：

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