Vraag : Schrap lijn met duplicaat

Hoe kan ik duplicaten enkel één voorkomen het tonen hebben schrappen en?   Ik heb code die het rood draait maar ik zou willen schrappen dups vastgemaakt.  Thanks
" codeBody " 
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:

Dim
Schemerige I als Geheel


Sub Dups ()
'
      'NOTA: U moet de eerste cel in de kolom selecteren en
      'zorg ervoor dat de kolom alvorens deze macro in werking te stellen wordt gesorteerd.
      ScreenUpdating = Vals
      FirstItem = ActiveCell.Value
      SecondItem = ActiveCell.Offset (1, 0). Waarde
      offsetcount = 1
      Doe terwijl ActiveCell <> ""
         Als FirstItem = SecondItem toen
           ActiveCell.Offset (offsetcount, 0). Interior.Color = RGB (255, 0, 0)
           ActiveCell.Offset (offsetcount - 1, 0). Interior.Color = RGB (255, 0, 0)
           offsetcount = offsetcount + 1
           SecondItem = ActiveCell.Offset (offsetcount, 0). Waarde
         Anders
           
           ActiveCell.Offset (offsetcount, 0). Selecteer
           FirstItem = ActiveCell.Value
           SecondItem = ActiveCell.Offset (1, 0). Waarde
           offsetcount = 1
         Eind als
         
       Lijn
            

   Sub van het eind

Antwoord : Schrap lijn met duplicaat

U kunt hier voor het dossier van de netwerkinstallatie gaan:
http://www.microsoft.com/downloads/details.aspx?FamilyId=5B33B5A8-5E76-401F-BE08-1E1555D4F3D4&displaylang=en


Hoop dit helpt!

: o)

Bartender_1
Andere oplossingen  
 
programming4us programming4us