Comment trouver des données en double avec VBA Excel

Instructions

1. Presse "Alt" et "F11" pour aller dans l'éditeur VB.

2. Cliquer sur "Insérez-gt; Module" pour ouvrir une nouvelle fenêtre de code.

3. Collez le code suivant dans la fenêtre:
   Sous DupsGreen ()
   Application.ScreenUpdating = False
   Rng = Selection.Rows.Count
   Pour i = 1 Rng Pour Étape -1
   myCheck = ActiveCell
   ActiveCell.Offset (1, 0) .Select
   Pour j = 1 à i
   Si ActiveCell = myCheck Puis
   Selection.Font.Bold = True
   Selection.Font.ColorIndex = 4
   End If
   ActiveCell.Offset (1, 0) .Select
   Suivant j
   ActiveCell.Offset (-i, 0) .Select
   I Suivant
   Application.ScreenUpdating = True
   End Sub

4. Presse "Alt" et "F11" pour revenir à la feuille de calcul.

5. Mettez en surbrillance les données dans la feuille de calcul Excel en appuyant sur la touche gauche de la souris en haut à gauche des données et en faisant glisser le curseur en bas à droite.

6. Presse "Alt" et "F11" pour revenir à l'éditeur.

7. Cliquer sur "Run," puis cliquez sur "Sub Exécutez / formulaire utilisateur." La VBA fonctionner en arrière-plan, en soulignant les données en vert.

8. Presse "Alt" et "F11" pour revenir à la feuille de calcul et de voir les données mises en surbrillance.