Rijen met zelfde waarde in cel verwijderen in Exel

Status
Niet open voor verdere reacties.
Beetje vreemd nietwaar?

Je start een vraag; je krijgt reactie.
Vervolgens kom je met een gevonden code die een aanpassing nodig heeft en er wordt niet over de aangereikte reactie gereageerd.

Plaats het bestand waarom het draait.

excuses dat ik niet eerder heb gereageerd op de aangereikte reactie. Bij uitvoering van Amber55.xlsb kreeg ik als resultaat een kolom met de waarden: Waar en Onwaar. De rijen met dubbele waarden werden niet verwijderd. Door de berichtgeving die daarop volgde werd ik in verwarring gebracht en ben toen op zoek gegaan naar een andere oplossing. Vandaar dat ik de code op het forum heb geplaatst.
 
Bij deze de dictionary methode.

Code:
Sub hsv_2()
Dim sv, i As Long, s0 As String, sd As Object
With Cells(1).CurrentRegion
sv = .Value
Set sd = CreateObject("scripting.dictionary")
   For i = 1 To UBound(sv)
       sd(sv(i, 4)) = Application.Index(sv, i)
    If InStr(s0, sv(i, 4)) Then sd.Remove sv(i, 4)
        s0 = s0 & "|" & sv(i, 4)
  Next i
   .ClearContents
   .Resize(sd.Count, 4) = Application.Index(sd.items, 0, 0)
End With
End Sub

deze code werkt perfect. De rijen met dubbele waarden worden gewist en het bestand dat ik nodig heb blijft over. helaas kan ik niet volgen wat de code in de regels doet maar dat ga ik uitzoeken. bedankt voor de oplossing.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan