Bepaalde rijen verwijderen

[bartfarming]

Hallo allemaal,

Ik heb bij mij een excel bestand waarin ik in kolom A van iedere waarde 5 getallen moet hebben.
Bijvoorbeeld:

Kolom A:
Rij1: 1
rij2: 1
rij3: 1
Rij4: 1
rij5: 1
Rij6: 2
Rij7: 2
Rij 8: 3
Rij 9: 3
Rij 10: 3
Rij 11: 3
Rij 12: 3


Dit is een kort voorbeeld want mijn daadwerkelijke excel bestanden tellen 15.000 en 45.000 rijen.

Nu zie je in mijn voorbeeld dat er het getal '1' en '3' vijf keer voorkomen en het getal '2' maar 2 keer. Nu wil ik met een bepaalde formule dat alle 2'en verwijderd worden en de 1'en en 3'en blijven staan, omdat ik elk getal 5 keer moet hebben in mijn daadwerkelijke excel bestand.

Ik hoop dat iemand mij kan helpen.

Groeten Bart

 

[SjonR]

Ik heb iets met vba dat werkt, al zal je meerdere keren op je knop moeten drukken wil je alles verwijderen. Hoe dat komt weet ik niet, maar er zal later nog wel iemand komen die dat wel weet.

Private Sub CommandButton1_Click()

Dim Cell As Range, P As Range

Dim R As Integer
R = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set P = Range("A1:A" & R)
For Each Cell In P
If Application.WorksheetFunction.CountIf(P, Cell) < 5 Then
Cell.EntireRow.Delete
End If
Next Cell
End Sub

 

[gast0660]

Hoi Bart,
Probeer het hier eens mee.Bekijk bijlage Rijen verwijderen.xlsb

 

[snb]

Met een Excel-formule kun je nooit iets verwijderen.
Het resultaat van een Excel-formule voegt altijd iets toe aan een werkblad (ook al is het resultaat een lege tekenreeks).

 

[bartfarming]

Hoi Bart,
Probeer het hier eens mee.Bekijk bijlage 297691

Dankjewel. Ik denk dat het gewerkt heeft aangezien er nu, in mijn bestand 13226 rijen over zijn gebleven. Met de kolomtitel er vanaf getrokken is het getal dus deelbaar door 5. Dus veronderstel ik dat het heeft gewerkt.

Ik kan wel een beetje prutsen met Excel maar dit was mij nooit gelukt.
Nogmaals hartelijk dank!

Bart

 

[gast0660]

Ok:thumb:
Suc6

 

[snb]

Of

Sub M_snb()
  Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Name = "snb"
    
  [snb].Offset(, 3) = [if(countif(snb,snb)<>5,"",snb)]
  [snb].Offset(, 3).SpecialCells(4).EntireRow.Delete
End Sub

NB. Zorg dat in kolom A geen lege celle staan
getallen die vaker dan 5 keer voorkomen worden ook verwijderd.

 

[bartfarming]

Of

Sub M_snb()
  Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Name = "snb"
    
  [snb].Offset(, 3) = [if(countif(snb,snb)<>5,"",snb)]
  [snb].Offset(, 3).SpecialCells(4).EntireRow.Delete
End Sub

NB. Zorg dat in kolom A geen lege celle staan
getallen die vaker dan 5 keer voorkomen worden ook verwijderd.

Dankjewel.
Wat ik in mijn geval zeker wist is dat er niet méér dan 5 waardes in stonden. Dus dit is wellicht een handige tool die ik in de toekomst gebruiken kan.

 

[snb]

Gebruik svp de knop 'reageer op bericht' en niet de 'quote' knop voor een reaktie.