Macro suppression doublons
Bonjour tout le monde, je me tourne vers vous car j'ai un souci pour éditer une macro (pour excel 2010).
Je possède un fichier de 750.000 lignes (adresses email) et je souhaite éliminer les doublons, j'ai essayé plusieurs macros (dont celle ci-après le message) mais elle ne supprime qu'une ligne.
En fait je voudrai supprimer les 2 valeurs.
Ex :
A1 = xxxx@mail.com
A2 = yyyy@mail.com
A3 = zzzz@mail.com
A4 = xxxx@mail.com
Je souhaiterais que le résultat soit :
A2 = yyyy@mail.com
A3 = zzzz@mail.com
Donc que les valeurs en double (les 2 lignes), soient supprimées.
Vous pouvez m'aider et m'orienter svp ? J'ai cherché partout et je ne trouve pas de solution adéquate.
Merci pour votre aide.
A+
Sub suppEmail()
Dim derlig As Long, nb_email, i As Long
Columns("B:B").Insert Shift:=xlToRight
derlig = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
[B2].Resize(derlig - 1, 1).FormulaLocal = "=NB.SI(A:A;A2)"
nb_email = [B1].Resize(derlig, 1)
Columns(2).Delete
For i = UBound(nb_email) To 2 Step -1
If nb_email(i, 1) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Tu as certainement cherché, je n'en doute pas un instant
Un lien que tu vas lire et assimiler.
Si ce lien ne convient pas à ta demande, on verra pour une macro
Cdlt
Merci pour la réponse, je connais bien cette méthode mais ce n'est pas ce que je chercche, je veux supprimer tous les doublons, ou ne garder que les valeurs uniques si c'est plus clair.