Excelで重複を削除するが最初のインスタンスは保持するにはどうすればよいですか？

Author Siluvia Last modified 2025-08-26

例えば、ワークシートにいくつかの重複を含む値のリストがあるとします。ここで、重複を削除する必要がありますが、重複した値が見つかった最初の行は保持したいです。この記事では、Excelで重複を削除するが最初のインスタンスを保持するための2つの方法をご紹介します。

VBAコードを使用して重複を削除し、最初のインスタンスを保持する
 Kutools for Excelを使用して重複を削除し、最初のインスタンスを保持する

VBAコードを使用して重複を削除し、最初のインスタンスを保持する

以下のVBAコードを実行して、列内の重複を削除し、最初のインスタンスを保持できます。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsダイアログボックスを開きます。

2. Microsoft Visual Basic for Applicationsダイアログボックスで、挿入 > モジュールをクリックします。次に、以下のコードをコードウィンドウにコピーして貼り付けます。

VBAコード：重複を削除し、最初のインスタンスを保持する

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. F5キーを押してコードを実行します。表示されるKutoolsforExcelダイアログボックスで、重複を削除したい範囲を選択し、OKボタンをクリックします。スクリーンショットをご覧ください:

vba code to select the data list

これで、最初のレコード以外のすべての重複行が選択された列範囲から削除されます。スクリーンショットをご覧ください:

all duplicate rows except the first records are removed

Kutools for Excelを使用して重複を削除し、最初のインスタンスを保持する

VBAコードの他に、Kutools for Excelアドインの「重複および一意セルの選択」機能を使用して、簡単に重複を削除しつつ最初のインスタンスを保持することができます。

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

1. 重複を削除したいが最初のインスタンスは保持したい範囲を選択します。次に、Kutools > 選択 > 重複および一意セルの選択 をクリックします。

clcik Select Duplicate & Unique Cells feature of kutools

2. 「重複および一意セルの選択」ダイアログボックスで、「重複する値（最初の一致を除外）」オプションを選択し、OKボタンをクリックします。スクリーンショットをご覧ください:

select the Duplicates (Except 1st one) option in the dialog box

3. 次の「重複および一意セルの選択」ダイアログボックスで、OKをクリックします。

a prompt box popps to remind how many cells are selected

4. これで、最初のインスタンスを除く重複が選択されましたので、選択された重複を削除するためにDeleteキーを押してください。

press the Delete key to remove the selected duplicates

注: 行全体を削除したい場合は、「行全体を選択」オプションを「重複および一意セルの選択」ダイアログボックスでチェックし、右クリックメニューの「削除」コマンドを適用して、重複する行全体を削除します。

このユーティリティを無料で試用したい場合（30日間）、こちらをクリックしてダウンロードし、上記の手順に従って操作を適用してください。

Kutools for Excelを使用して重複を削除し、最初のインスタンスを保持する

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

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