Comment trouver des doublons dans Excel Visual Basic

Rechercher des doublons dans Microsoft Excel 2010.

Étape 1

Ouvrez le fichier Microsoft Excel 2010 contenant les données pour lesquelles vous souhaitez vérifier les doublons. Lorsque la feuille de calcul s'ouvre, appuyez sur les touches "Alt" et "F11" pour charger la console VBA.

Étape 2

Cliquez sur la feuille de calcul à gauche de l'écran VBA. Déplacez la souris sur "Insérer" et choisissez l'option "Module". Double-cliquez sur le nouveau module qui apparaît quelques lignes sous la feuille de calcul.

Étape 3

Placez le curseur dans l'espace vide du côté droit de l'écran. Écrivez "Sub Dupecheck ()" et appuyez sur Entrée. VBA entrera automatiquement la commande "End Sub" pour vous.

Étape 4

Placez le curseur sur la ligne entre les commandes "Sub" et "End Sub". Entrez les lignes de code suivantes:

Dim x As Long Dim endrow As Long Endrow = Plage ("A50000"). Fin (xlUp) .Row

Ce code crée deux variables, "EndRow" et "x", puis définit la valeur de "EndRow". Ce code recherchera dans 50 000 lignes dans une seule colonne, mais si vous devez effectuer une recherche entre plusieurs lignes, il passe de 50 000 à un nombre quelconque. Ce code est également conçu pour rechercher dans la colonne "A", mais il vous suffit de remplacer "A" par n'importe quelle lettre de la colonne dont vous avez besoin.

Étape 5

Placez le curseur sur la ligne suivante et écrivez le code suivant:

Pour x = endrow To 1 Étape -1 Si Application.WorksheetFunction.CountIf (Range ("A1: A" & x), Range ("A" & x) .Text)> 1 Puis Range ("A" & x). Interior.Color = RVB (200, 160, 35) Fin si Suivant x

C'est le cœur du code qui va rechercher dans chaque cellule et déterminer si une cellule identique existe au-dessus d'elle. S'il trouve un doublon, le bas de la cellule devient jaune. Vous pouvez modifier toutes les occurrences de "A" si vous travaillez dans une colonne différente. Vous pouvez également changer les trois chiffres après "Interior.color" pour changer la couleur dans laquelle la cellule sera convertie.

Étape 6

Cliquez sur le "x" dans le coin supérieur droit de l'écran pour fermer la console VBA. Cliquez sur l'onglet "Développeur" en haut de l'écran. Recherchez le bouton "Macro" situé à gauche du ruban et cliquez dessus. Sélectionnez "Dupecheck" dans la liste des macros disponibles et cliquez sur "Exécuter". Excel va maintenant mettre en évidence chaque duplicata dans la colonne de données.