Excelで重複せずにXNUMXつのリストを組み合わせる方法は?
ワークシートにXNUMXつのリストがあり、リスト内の値の一部が重複しているため、以下のスクリーンショットに示すように、これらXNUMXつのリストを組み合わせて、一意の値を残すにはどうすればよいですか。
重複のないリストを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の詳細については、ここをクリックしてください。