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

例えば、ワークシートにいくつかの重複を含む値のリストがあるとします。ここで、重複を削除する必要がありますが、重複した値が見つかった最初の行は保持したいです。この記事では、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ボタンをクリックします。スクリーンショットをご覧ください:

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

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

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

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

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

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

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

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

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