Dubbele rijen verwijderen

[neyon]

Hoe kan ik dubbele rijen in excel verwijderen? Dus niet uniek maken, maar alle waarden die meer dan 1 keer voorkomen verwijderen. Het hoeft ook niet zo te zijn dat elke cel in de rij gevuld is.

Wel bevat elke rij een aantal kolommen die altijd gevuld zijn, bijvoorbeeld achternaam, voorletters en geboortedatum.

Groet,

Neyon

 

[jheesterbeek]

Sorteer de gegevens op de kolom die je wilt vergelijken. Selecteer de eerste rij in de betreffende kolom en run onderstaande macro. Als een bepaalde waarde tweec keer vorokomt wordt de hele regel verwijderd (maak eerst een reserve kopie!!):

Sub DubbleDelete()
'Dim Rij, Kolom, StartRij, EindRij, TempValue
Application.Calculation = xlManual

On Error Resume Next
Rij = ActiveCell.Row
Kolom = ActiveCell.Column
Do While Cells(Rij, Kolom) <> ""
If Trim(Cells(Rij, Kolom).Value) = Trim(Cells(Rij + 1, Kolom)) Then
Rows(Rij).Select
Selection.Delete Shift:=xlUp
Else
Rij = Rij + 1
End If
Loop
Cells(1, kolom).Select

Application.Calculation = xlAutomatic
End Sub

 

[neyon]

Hoi, alvast ontzettend bedankt voor je meedenken!

Ik heb je macro geprobeerd met de volgende (simpele kolom)

100
200
300
300
300
400
500
600
700
700
800
900

Na het uitvoeren van je macro komen alle waarden (dus ook 300 en 700) nog maar 1x
voor. Het is echter de bedoeling dat de waarden 300 en 700 helemaal niet meer voorkomen.

Dus het eindresultaat zou moeten zijn:

100
200
400
500
600
800
900

Misschien is het zo duidelijker?

Groeten
Neyon

 

[neyon]

Niemand?!

 

[jheesterbeek]

plaats in een lege kolom een aantal.als() formule om het aantal keren te tellen dat het voorkomt. Plaats een filter op deze kolom en filter alles dat niet 0 is. Selecteer de betreffen de rijen, klik rechts en kies voor rijen verwijderen
Klaar...

 

[madmuppet]

Kijk, daar heb ik wat aan... oplossing gevonden in de "kelder" van helpmij.nl post is al meer dan een jaar oud, maar DE oplossing voor mijn probleem! :thumb::thumb::thumb:

 

[kibus]

deze code kwam ik tegen ... activeer de rij waarop je wilt ontdubbelen

groeten


Sub ev()

Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


Set Rng = Application.Intersect(ActiveSheet.UsedRange, _
ActiveSheet.Columns(ActiveCell.Column))

Application.StatusBar = "Processing Row: " & Format(Rng.Row, "#,##0")

N = 0
For R = Rng.Rows.Count To 2 Step -1
If R Mod 500 = 0 Then
Application.StatusBar = "Processing Row: " & Format(R, "#,##0")
End If

V = Rng.Cells(R, 1).Value
If V = vbNullString Then
If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
Else
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
End If
Next R

EndMacro:

Application.StatusBar = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "aantal ontdubbeld: " & CStr(N)

End Sub

 

[Dave84]

ander probleem

Ik weet hoe ik dubbele waarden moet verwijderen. Het probleem is alleen dat ik meerdere kolommen heb, met waarden die ook afhankelijk zijn van de kolom met de dubbele waarden. Ik zal een voorbeeld laten zien:

kolom A- kolom B
1- 37
1- 40
1- 45
1- 46
2- 122
2- 123
3- 211
3- 213
3- 214
3- 217

Wanneer ik dus dubbele waarden verwijder, blijft elke keer de bovenste waarde van kolom B staan. Dus:

kolom A- kolom B
1- 37
2- 122
3- 211

Maar ik wil dat juist het gemiddelde genomen wordt en niet alleen de bovenste waarde. Dus bijvoorbeeld bij 1 het gemiddelde van: 37,40,45 en 46.

Ik hoop dat iemand mij hiermee kan helpen, alvast bedankt.

 

[Roncancio]

Het kan zo:

=GEMIDDELDE(ALS(A1:A10=1;B1:B10))

Let op: Dit is een matrix formule dus afsluiten met CTRL-SHIFT-ENTER ipv ENTER.

De topic is overigens 2,5 jaar oud.
Dus als je nog vragen heb, graag een nieuwe topic starten.

Met vriendelijke groet,


Roncancio

 

[huijb]

Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers. Tevens is deze topic uit 2006.

 

[Wigi]

Dit is een kolfje naar de hand van een draaitabel: voeg een draaitabel in en op een halve minuut ben je klaar!