duplicaat cellen vervangen door blanco cellen

[bartkray]

Ik heb een grote tabel geexporteerd vanuit Access. Hierin staan in kolom A een aantal cellen met dezelfde waarde, bijvoorbeeld:

Nu wil ik bijvoorbeeld de dubbele vermelding van de getallen 1861 en 1862 vervangen door blanco cellen, zodat alleen de eerste vermelding overblijft.
De gegevens in kolom C en D dienen echter wél te blijven staan, alleen de dubbele vermelding in kolom A dient een blanco cel te worden.
Heeft iemand raad hoe ik dit kan doen? Ik zit met mijn handen in het haar
Thanx, Bart

 

[jverkerk]

Ik heb een grote tabel geexporteerd vanuit Access. Hierin staan in kolom A een aantal cellen met dezelfde waarde, bijvoorbeeld:

Nu wil ik bijvoorbeeld de dubbele vermelding van de getallen 1861 en 1862 vervangen door blanco cellen, zodat alleen de eerste vermelding overblijft.
De gegevens in kolom C en D dienen echter wél te blijven staan, alleen de dubbele vermelding in kolom A dient een blanco cel te worden.
Heeft iemand raad hoe ik dit kan doen? Ik zit met mijn handen in het haar
Thanx, Bart

In excel 2007 zit een functie dubbele waarden verwijderen.

 

[HSV]

Of met een macro als bovenstaande niet naar behoren werkt.

Sub HSV()
 Dim rng As String, y As Long, cl As Variant
   rng = Range("A65536").End(xlUp).Row
  y = 1
For Each cl In Range("A1:A" & rng)
   If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(y, 11)), cl) > 1 Then
      cl.ClearContents
    End If
   y = y + 1
  Next cl
End Sub

 

[bartkray]

Super bedankt allebei!!!!
Ik heb de macro van HSV geprobeerd en dit scheelt me dagen werk!
Helemaal top!
Bart

 

[HSV]

Super bedankt allebei!!!!
Ik heb de macro van HSV geprobeerd en dit scheelt me dagen werk!Helemaal top!
Bart

Graag gedaan Bart.
Dan heb je vast tijd over om de vraag als opgelost te zetten.
Bvd.

 

[jverkerk]

Graag gedaan Bart.
Dan heb je vast tijd over om de vraag als opgelost te zetten.
Bvd.

Ik wou dat ik de vba taal ook maar geleerd had!!!

 

[HSV]

Je bent nooit te oud Johan.
Gewoon afkijken en proberen in onderwerpen die je interessant vindt.
Met korte codes beginnen, en met F1 (Help in VBA) kun je al wat maken.

Succes.

 

[Warme bakkertje]

If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(y, [COLOR="red"]11[/COLOR])), cl) > 1 Then

Ik veronderstel dat dit een typo is, deze mag je vervangen door 1

 

[HSV]

Dat is inderdaad een typo Rudi.
Bedankt voor je alertheid.