Supprimer doublons colonne par colonne
Résolu
takrourim
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Supprimer les doublons d'une colonne excel
- Déplacer une colonne excel - Guide
- Supprimer rond bleu whatsapp - Guide
- Trier colonne excel - Guide
- Supprimer une page word - Guide
- Formule somme excel colonne - Guide
4 réponses
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