Excelで重複をすべて削除して1つだけ残すにはどうすればよいですか？

Author Sun Last modified 2025-08-26

このチュートリアルでは、リストからすべての重複値を削除して1つだけ残す方法を紹介します。詳細は以下の通りです：

「重複を削除」機能を使用してすべての重複を削除し、1つだけ残す

VBAを使用してすべての重複を削除し、1つだけ残す

Kutools for Excelを使用してすべての重複を削除し、1つだけ残す

Kutools for Excelを使用してすべての重複行を結合し、データを保持する

「重複を削除」機能を使用してすべての重複を削除し、1つだけ残す

Excelでは、「重複の削除」機能を使用して、すべての重複を削除し、1つだけ残すことができます。

1. 必要なデータリストを選択し、[データ] > [重複の削除]をクリックします。スクリーンショットをご覧ください：

Remove Duplicates button on the Data tab on the ribbon

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

Remove Duplicates dialog

3. [OK]をクリックします。ダイアログが表示され、いくつの重複が削除されたかが通知されますので、閉じてください。これで、すべての重複が削除され、リストには1つだけが残ります。

Success dialog

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は、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

Kutools for Excelを無料でインストールした後、以下のように操作してください：

1. データ範囲を選択し、[Kutools] > [選択] > [重複および一意のセルを選択]をクリックします。スクリーンショットをご覧ください：

Select Duplicate & Unique Cells option on the Kutools tab on the ribbon

2. 表示されたダイアログで、「 重複する値 (最初の一致を除外)」オプションをチェックし、[OK]をクリックします。スクリーンショットをご覧ください：

Select Duplicate & Unique Cells dialog

3. 選択されたセルの数を知らせるダイアログが表示されます。[OK]をクリックして閉じてください。スクリーンショットをご覧ください：

Success dialog

4. 最初の重複以外のすべての重複が選択されますので、Deleteキーを押してそれらを消去します。

All the duplicates but first one are selected

ヒント: 「 重複および一意のセルを選択」を使用して、すべての重複を削除して1つだけ残すこともできます。次のように操作します：

最初の重複を含むすべての一意の値を選択し、 Ctrl + Cを押してコピーし、Ctrl + Vで別の場所に貼り付けます。

Select Duplicate & Unique Cells dialog with All unique option checked

デモ: すべての重複を削除して1つだけ残す

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

Kutools for Excelを使用してすべての重複行を結合し、データを保持する

以下のようなデータがあり、重複行を結合して対応するデータを保持したい場合、 Kutools for Excelの「高度な行のマージ」機能を使用できます。

Illustration of combining duplicate rows and keep the corresponding data

Kutools for Excelを無料でインストールした後、以下のように操作してください：

1. データを選択し、[Kutools] > [結合と分割] > [高度な行のマージ]をクリックします。スクリーンショットをご覧ください：

Advanced Combine Rows option on the Kutools tab on the ribbon

2. 「列に基づいて行を結合」ダイアログで、重複を削除したい列を選択し、[メインキー]をクリックしてそれを主キー列として設定します。スクリーンショットをご覧ください：

Combine Rows Based on Column dialog with Primary Key button highlighted

3. 次に、データを保持したい列を選択し、[結合]をクリックして、リストから区切り文字を選択します。スクリーンショットをご覧ください：

Combine Rows Based on Column dialog with Combine button highlighted

4. [ OK]をクリックすると、重複行が結合され、対応するデータが保持されます。

Duplicate rows are combined and the corresponding data are kept

デモ: 重複を結合して隣接データを保持する

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数