Presse "Alt" et "F11" pour aller dans l'éditeur VB.
Cliquer sur "Insérez-gt; Module" pour ouvrir une nouvelle fenêtre de code.
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
Presse "Alt" et "F11" pour revenir à la feuille de calcul.
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.
Presse "Alt" et "F11" pour revenir à l'éditeur.
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.
Presse "Alt" et "F11" pour revenir à la feuille de calcul et de voir les données mises en surbrillance.