Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

OfficeタブOfficeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
  • 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 並び替え 週、日、頻度など。 フィルタ 太字、数式、コメント...
  • 300 以上の強力な機能。 Office 2007-2021 および 365 で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

矢印青い右バブル 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の詳細については、ここをクリックしてください。


関連記事:

コメントを並べ替える
コメント (0)
まだ評価はありません。 最初に評価してください!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護