Comment supprimer les doublons mais conserver la première instance dans Excel?

Disons qu'il existe une liste de valeurs dans votre feuille de calcul qui contient des doublons, maintenant, vous devez supprimer les doublons mais conserver la première ligne où se trouve la valeur dupliquée. Dans cet article, nous allons vous montrer deux méthodes pour supprimer les doublons mais conserver la première instance dans Excel.

Supprimer les doublons mais conserver la première instance avec le code VBA
Supprimez les doublons mais conservez la première instance avec Kutools for Excel

Supprimer les doublons mais conserver la première instance avec le code VBA

Vous pouvez exécuter le code VBA ci-dessous pour supprimer les doublons, mais conserver la première instance dans une colonne.

1. presse autre + F11 ouvrir le Microsoft Visual Basic pour applications boite de dialogue.

2. dans le Microsoft Visual Basic pour applications boîte de dialogue, cliquez sur insérer > Module. Ensuite, copiez et collez le code ci-dessous dans la fenêtre de code.

Code VBA: supprimez les doublons mais conservez la première instance

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. presse F5 clé pour exécuter le code. Dans le popping KutoolsforExcel boîte de dialogue, sélectionnez la plage dans laquelle vous souhaitez supprimer les doublons, puis cliquez sur le OK bouton. Voir la capture d'écran:

Vous pouvez maintenant voir toutes les lignes en double, sauf que les premiers enregistrements sont supprimés de la plage de colonnes sélectionnée. Voir la capture d'écran:

Supprimez les doublons mais conservez la première instance avec Kutools for Excel

En plus du code VBA, vous pouvez utiliser le Sélectionnez les cellules dupliquées et uniques utilité de Kutools for Excel complément pour supprimer facilement les doublons mais conserver les premières instances dans Excel.

1. Sélectionnez la plage dans laquelle vous souhaitez supprimer les doublons mais conserver les premières instances. Puis clique Kutools > Sélectionnez > Sélectionnez les cellules dupliquées et uniques. 

2. dans le Sélectionnez les cellules dupliquées et uniques boîte de dialogue, sélectionnez le Doubles (sauf le premier) , puis cliquez sur le OK bouton. Voir la capture d'écran:

3. Dans ce qui suit Sélectionnez les cellules dupliquées et uniques boîte de dialogue, cliquez sur OK.

4. Maintenant, les doublons sont sélectionnés sauf les premières instances, veuillez appuyer sur le Supprimer pour supprimer les doublons sélectionnés.

Notes: Si vous souhaitez supprimer les lignes en double, il vous suffit de vérifier Sélectionnez des lignes entières option dans la Sélectionnez les cellules dupliquées et uniques boîte de dialogue, puis appliquez le Supprimer commande du menu contextuel pour supprimer toutes les lignes dupliquées.

Supprimez les doublons mais conservez la première instance avec Kutools for Excel