supprimer doublons colonne par colonne Résolu

Question

Bonjour, 

Sur excel 2010, je veux supprimer les doublons colonne par colonne , jusqu'ici tout va bien, je fais l'habituel données / supprimer les doublons.
Le problème est que j'ai 10,000 colonnes et je ne peux pas faire ça 1 par 1.

Avez vous la solution ?

Merci

Configuration: Windows 7 / Firefox 27.0

Zoul67 · Answer

Bonjour,

Si tu enregistres tes actions sous forme de macro, tu obtiens quelque chose de ce genre :
ActiveSheet.Range("$B$1:$E$12").RemoveDuplicates Columns:=2, Header:=xlNo

Il suffit d'y intégrer 
- la bonne plage de données ;
- une boucle for pour chaque colonne.

A+

takrourim · Answer

En entrant : 
ActiveSheet.Range("$A$1:$OZB$39").RemoveDuplicates Columns:=2, Header:=xlNo

""""pour info mon tableau a pour plage ("$A$1:$OZB$39")"""""

cette macro supprime tous les doublons de la plage alors que je veux supprimer  les doublons uniquement sur chaque colonne

ex : colonne A : j'ai 1; 2; 3; 4 ; 4
       colonne B : j'ai 1; 2; 2; 3; 4
cette macro va tout supprimer (car j'ai des doublons sur les deux colonnes)
alors que je voudrais : colonne A : 1; 2; 3; 4 & colonne B : 1; 2; 3; 4 

merci

michel_m · Answer

Bonjour,

excusez l'incruste
essaies
Sub supp_doublons()Dim Fin As Integer, Lig As Integer, Col As IntegerFin = Rows(1).Find("*", , , , , xlPrevious).ColumnLig = 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 = FalseEnd WithEnd Sub 
 
 Michel

Zoul67 · Answer

Re,

Je ne connais pas bien RemoveDuplicates mais ai abouti à 

    For c = 1 To 10818
    ActiveSheet.Range(Cells(1, c), Cells(39, c)).RemoveDuplicates Columns:=1, Header:=xlNo
    Next c

La solution de michel_m est toutefois plus propre.

A+

Suppression du Hors-Sujet par la Modération

Supprimer doublons colonne par colonne

4 réponses

Discussions similaires

Newsletters