Excel で重複するデータをすべて削除して、1 つだけ残すにはどうすればよいですか?
このチュートリアルでは、Excel でリスト内の重複する値をすべて削除し、それぞれ1 つだけ残すテクニックをご紹介します。詳しくはこちらをご覧ください:
Kutools for Excel で重複をすべて削除し、1 つだけ残す![]()
すべての重複行を結合し、Kutools for Excel でデータを保持する![]()
重複を削除関数で重複をすべて削除し、1 つだけ残す
Excel では、「重複の削除」機能を使えば、重複する値を1 つだけ残して、ほかはすべて簡単に削除できます。
1。必要なデータリストを選択し、データ > 重複を削除をクリックしてください。スクリーンショットをご覧ください:
![リボンの[データ]タブにある[重複の削除]ボタン](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-1.png)
2。次に、重複の削除ダイアログボックスで、重複を削除したい列の列名にチェックを入れます。データにヘッダーが含まれている場合は、タイトルを含めるオプションにもチェックを入れてください。スクリーンショットをご覧ください:
![[重複の削除]ダイアログ](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-2.png)
3。「OK」をクリックしてください。重複がいくつ削除されたかを示すダイアログボックスが表示されますので、そのまま閉じてください。これでリスト内の重複がすべて削除され、1 つだけが残ります。

VBA で重複をすべて削除し、1 つだけ残す
VBA にご興味をお持ちの方には、このタスクを解決するための VBA コードもご紹介いたします。
1。「Alt + F11」キーを同時に押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。
2。「挿入」をクリックし、モジュールを選択して、以下の VBA コードを新しいモジュールウィンドウに貼り付けてください。
VBA:重複をすべて削除し、1 つだけ残す。
Sub RemoveAllDeplicateButOne()
Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:A" & LR).RemoveDuplicates Columns:=1, Header:=Name
End Sub 3。「F5」キーを押すか、「実行」をクリックしてVBA を実行すると、A 列のリストから重複が削除され、各項目が1 つだけ残ります。
ヒント:上記の VBA コードでは、A は A 列を、A1:A はリスト範囲を示しています。必要に応じて、これらを変更できます。
Kutools for Excel で重複をすべて削除し、1 つだけ残す
Kutools for Excel には、Kutools for Excelという強力なユーティリティが搭載されており、重複するセル/一意のセルを選択機能を使えば、最初の1 件を除くすべての重複セルを瞬時に選択またはハイライトできます。その後、簡単に削除も可能です。
Kutools for Excel を無料でインストールした後は、以下の手順に従ってください:
1。データ範囲を選択し、Kutools > 選択 > 重複するセル/一意のセルを選択をクリックしてください。スクリーンショットをご覧ください:
![リボンの[Kutools]タブにある[重複セルと一意セルの選択]オプション](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-kutools-select-duplicate-unique-cells-1.png)
2。表示されたダイアログボックスで、「重複する値(最初の一致を除外)」オプションにチェックを入れ、「OK」をクリックします。スクリーンショットをご覧ください:
![[重複セルと一意セルの選択]ダイアログ](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-5.png)
3。選択されたセル数を知らせるダイアログボックスが表示されるので、「OK」をクリックして閉じてください。スクリーンショットをご覧ください:

4。これで最初の1 件を除くすべての重複が選択されるので、「Delete」キーを押して内容をクリアしてください。

ヒント:また、以下のように重複するセル/一意のセルを選択を使用しても、重複をすべて削除し、1 つだけ残すことができます:
最初の重複を含むすべての一意な値を選択し、「Ctrl + C」でコピーして、「Ctrl + V」で別の場所に貼り付けます。
![[すべての一意な値]オプションがチェックされた[重複セルと一意セルの選択]ダイアログ](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-8.png)

デモ:重複をすべて削除し、1 つだけ残す
すべての重複行を結合し、Kutools for Excel でデータを保持する
下のスクリーンショットのようにデータがいくつかあり、重複する行を結合して対応するデータを保持したい場合は、Kutools for Excelの高度な行のマージ機能をご活用ください。

Kutools for Excel を無料でインストールした後は、以下の手順に従ってください:
1。データを選択し、Kutools > 結合と分割 > 高度な行のマージをクリックしてください。スクリーンショットをご覧ください:
![リボンの[Kutools]タブにある[高度な行の結合]オプション](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-kutools-advanced-combine-1.png)
2。行の結合(列に基づく)ダイアログボックスで、重複を削除したい列を選択し、「主キー」をクリックしてキーカラムとして設定してください。スクリーンショットをご覧ください:
![[列に基づく行の結合]ダイアログ([主キー]ボタンが強調表示)](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-12.png)
3。次に、データを保持したい列を選択し、「結合」をクリックして、リストから区切り文字を選択します。スクリーンショットをご覧ください:
![[列に基づく行の結合]ダイアログ([結合]ボタンが強調表示)](http://cdn.extendoffice.com/images/stories/doc-excel/remove-duplicate-keep-one/doc-remove-duplicate-keep-one-13.png)
4。「OK」をクリックすると、重複する行が結合され、対応するデータが保持されます。

デモ:重複を結合し、隣接するデータを保持する
関連記事:
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得