laatste regel bij dubbele waarden

[hansbaas]

Goedemiddag,

Wij krijgen regelmatig een excelbestand met ongeveer 20 kolommen en 4000 regels. Hierin staan een aantal dubbele regels. Als in kolm B een waarde meerdere malen voorkomt moeten wij de laatste regel hebben. Wij doen dit nu met =gelijk. De bestand is gesorteerd op kolom C dus de dubbele staan onder elkaar.

Is hier een slimmere oplossing voor?

Mvg
Hans

 

[VenA]

En we mogen gokken wat waar staat welke dubbelingen er inzitten etc? Het antwoord is ja maar dan wel even een voorbeeldbestandje in excel.

 

[sylvester-ponte]

met voorwaardelijke opmaak
succes Hans

 

[Jezet]

Hoi Hans Baas,

Met een zogenaamde Matrix-formule (invoeren met Ctrl + Shift + Enter tegelijk indrukken).

In een vrije kolom zet je de formule (bijvoorbeeld K11):

=Max((B12:B9999=B11)*RIJ(B12:B9999))

In de formule balk staat de formule nu tussen {}
en kopieer deze formule naar beneden, waarbij je rij 11 overslaat (een macro-formule mag je niet naar zichzelf kopieren)

Is het resultaat 0 dan betreft het een unieke waarde in B11 (of een andere kolom natuurlijk)
Is de uitkomst groter dan 0 dan is het resultaat het rijnummer dat dubbel is.

Opmerking: Stel dat B11 3 keer voorkomt, dat is het resultaat het hoogste rijnummer, nadat die regel verwijderd is komt dan het volgende rijnummer.
Je kan daarmee ook op meerdere kolommen zoeken bijvoorbeeld kolom B en C door *(C12:C9999=C11) toe te voegen.
Het is ook mogelijk om hier een VBA-code van te maken die de rijen 1 voor 1 afloopt en de dubbels verwijderd.

Groet,
Jeroen

 

[hansbaas]

laatste regel

Goedemorgen,

Even voor de duidelijkheid heb ik een bestandje bijgesloten. Het is de bedoeling dat de gekleurde regels overblijven en de overige regels verwijderd worden, de "sleutel" hiervoor is de waarde in kolom B.

Alvast dank

 

[Jezet]

Hoi Hansbaas,

met de formule

{=MAX((B3:B9999=B2)*RIJ(B3:B9999))}

in AI2 krijg je in kolom AI alle gekleurde cellen te zien met een 0, op rij 10 na die enkel voorkomt (moet die ook verwijderd worden?). Je zou daarna kunnen sorteren op kolom AI (van Hoog naar Laag!). Tot aan de eerste rijen met 0 kun je dan verwijderen.

Groet,
Jeroen

 

[sylvester-ponte]

Sub verwijderDubbelen()
    Dim Cel As Range, LaatsteRijNr As Long
    LaatsteRijNr = Range("B" & Cells.Rows.Count).End(xlUp).Row
    Set Cel = [B2]
    Do
        If Cel = Cel.Offset(1, 0) Then
            Set Cel = Cel.Offset(1)
            Cel.Offset(-1).EntireRow.Delete
            LaatsteRijNr = LaatsteRijNr - 1
        Else
            Set Cel = Cel.Offset(1)
        End If
    Loop Until Cel.Row >= LaatsteRijNr
End Sub

 

[VenA]

Zonder code. Selecteer de tabel klik op gegevens en vervolgens op duplicaten verwijderen. Je kan dan zelf aangeven welke kolommen je wel of niet als sleutel wil gebruiken.

 

[HSV]

Duplicaten verwijderen verwijderd de laatste cel van de dubbele.
Je zou kunnen sorteren op Z-A, maar of deze toepassing het toelaat in het bestand is maar de vraag.

Edit: Je zou een extra kolom aan moeten maken met daarin een kop-tekst, en in de volgende cellen daaronder cijfers van 1 t/m 16.
Samengevoegde cel "Einde Reden" ontbinden, en sorteren op kolom B (van groot naar klein) en daarna op de extra kolom.
Nu "Duplicaten verwijderen", en je houdt de groene rijen over.