Supprimer doublons colonne par colonne
Résolu/Fermé
takrourim
-
Modifié par takrourim le 11/03/2014 à 11:49
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 11 mars 2014 à 16:04
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 11 mars 2014 à 16:04
A voir également:
- Supprimer les doublons vba
- Supprimer une page word - Guide
- Supprimer les doublons excel - Guide
- Supprimer compte instagram - Guide
- Supprimer les doublons photos - Guide
- Supprimer les doublons photos gratuit - Télécharger - Nettoyage
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 11/03/2014 à 13:50
Modifié par michel_m le 11/03/2014 à 13:50
Bonjour,
excusez l'incruste
essaies
Michel
excusez l'incruste
essaies
Sub supp_doublons()
Dim Fin As Integer, Lig As Integer, Col As Integer
Fin = Rows(1).Find("*", , , , , xlPrevious).Column
Lig = Cells.Find("*", , , , , xlPrevious).Row
With Application
.DisplayAlerts = False
.ScreenUpdating = False
For Col = 1 To Fin
ActiveSheet.Range(Cells(1, Col), Cells(Lig, Fin)).RemoveDuplicates Columns:=1
Next
.DisplayAlerts = False
End With
End Sub
Michel
