Microsoft Excel 2010 peut mettre en évidence les valeurs en double à l'aide d'une commande prédéfinie mise en forme conditionnelle , mais si vous avez besoin de trouver les doublons en utilisant une macro , vous pouvez utiliser Visual Basic pour Applications ( VBA) , qui est intégré dans Microsoft Excel. Bien que VBA ne possède pas de fonction qui va rechercher des doublons , vous pouvez exploiter la fonction NB.SI pour savoir quelles cellules détiennent des informations dupliquées . Instructions
1

Ouvrez le fichier Microsoft Excel 2010 qui contient les données que vous souhaitez vérifier la présence de doublons . Lorsque la feuille de calcul apparaît, appuyez sur " Alt" et " F11 " pour charger la console VBA.
2

un clic droit sur votre feuille de calcul sur le côté gauche de l'écran VBA. Déplacez votre souris sur "Insérer " et choisissez " Module ". Double-cliquez sur le nouveau module qui apparaît quelques lignes en dessous de la feuille de calcul.
3

Placez le curseur dans l'espace blanc sur le côté droit de l'écran. Tapez " DupeCheck Sub ( ) " et appuyez sur Entrée . VBA entrera automatiquement la commande " End Sub " pour vous.
4

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

X As Long

EndRow As Long

EndRow = Range ( " A50000 " ) End ( xlUp ) Row < br >

Ce code va créer deux variables , " EndRow " et " x ", puis établit la valeur de " EndRow . " Ce code va chercher à travers 50.000 lignes dans une seule colonne, mais si vous devez donc parcourir plus de lignes , il suffit d'augmenter de 50.000 à n'importe quel nombre vous avez besoin . Ce code est également conçu pour regarder à travers la colonne "A ", mais vous pouvez simplement changer "A" à tout ce que la colonne lettre dont vous avez besoin .
5

Placez votre curseur sur la ligne suivante et entrez le code suivant : Photos

Pour x = EndRow Pour 1 Étape 1

Si Application.WorksheetFunction.CountIf ( Range (" A1: A". & x ) , Range (" A" & x ) texte ) > 1 alors

Range (" A" & x ) . Interior.Color = RGB (200 , 160, 35)

End If

suivante x < br >

c'est le coeur du code qui va chercher dans chaque cellule et de déterminer si une cellule identique existe au-dessus. S'il trouve un duplicata, il deviendra le fond de la cellule de couleur jaune . Vous pouvez modifier chaque instance de "A" si vous travaillez sur une colonne différente . Vous pouvez également modifier les trois chiffres après " Interior.Color " pour changer la couleur de la cellule se transforme .
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. Trouvez le bouton "Macro" sur le côté 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 exemplaire dans la colonne de données.