|
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.
|
