class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
|
class= de
compteur " de " codeSnippet861511 d'id= " de Dim de class=
Obscurcir I comme nombre entier
Substrater Dups ()
'
'NOTE : Vous devez choisir la première cellule dans la colonne et
's'assurer que la colonne est assortie avant de courir ce macro.
ScreenUpdating = faux
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset (1, 0). Valeur
offsetcount = 1
Faire tandis que "" de <> d'ActiveCell
Si FirstItem = puis SecondItem
ActiveCell.Offset (offsetcount, 0). Interior.Color = RVB (255, 0, 0)
ActiveCell.Offset (offsetcount - 1, 0). Interior.Color = RVB (255, 0, 0)
offsetcount = offsetcount + 1
SecondItem = ActiveCell.Offset (offsetcount, 0). Valeur
Autrement
ActiveCell.Offset (offsetcount, 0). Choisi
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset (1, 0). Valeur
offsetcount = 1
Finir si
Boucle
Sous-marin d'extrémité
|