Hoe haal ik zgn 'dubbele' uit het overzicht?

[Mansoor]

Beste mensen,

Bij het maken van een overzicht in Excel stuit ik op het volgende probleem:

Ik heb een overzicht gemaakt, bestaande uit zo'n 17000 rijen, iedere rij bevat 8 kolommen met diverse data. Het probleem is dat de gegevens in de 1ste kolom van die 17000 rijen, in meerdere gevallen meer dan 1 x voorkomen (dwz: er zijn weliswaar 17000 rijen, maar als je ervoor kunt zorgen dat iedere waarde van die 17000 slechts 1 x wordt getoond, dan blijven er nog maar max 2000 rijen over)

Mijn probleem is dus dat ik dmv formules/ macro('s) ervoor wil zorgen dat de lijst kleiner wordt, door alle "dubbele" eruit te halen, kan dit?

Ik weet niet zeker of ik dit goed uitleg, daarom even een simpel voorbeeldje:

===========================================================
Naam - Adres - Postcode - Plaats
Bedrijf X Straat 10 1234 XX Amsterdam
Bedrijf X Postbus 1 1234 AA Amsterdam
Bedrijf X Straat 10 1234 XX Amsterdam
Bedrijf Y Straat 11 1234 XY Amsterdam
===========================================================

Uit bovenstaande overzicht blijkt nu dat rij 1 en rij 3 exact dezelfde gegevens bevatten (rij 2 wijkt af, aangezien hier voor Bedrijf X het postadres is vermeld tov in rij 1 en rij 3), nu wil ik dat alle gegevens in het overzicht slechts 1 keer worden getoond, dus ik wil het volgende overzicht krijgen:


===========================================================
Naam - Adres - Postcode - Plaats
Bedrijf X Straat 10 1234 XX Amsterdam
Bedrijf X Postbus 1 1234 AA Amsterdam
Bedrijf Y Straat 11 1234 XY Amsterdam
===========================================================



Wie o Wie kan mij hiermee helpen?


Hartelijk dank!

Mansoor

 

[Wigi]

Met

Data > Uitgebreid filter

kan je dit karwei aan. Kijk daar maar eens.

Wigi

 

[jpvs]

zie ook eens op de site van FEMDA.

http://www.femda.com/vragen/antwoord.asp?CD=0&ID=vn1163740272

Met voorbeeld om te downloaden.



Pierre

 

[Mansoor]

zie ook eens op de site van FEMDA.

http://www.femda.com/vragen/antwoord.asp?CD=0&ID=vn1163740272

Met voorbeeld om te downloaden.



Pierre

Waarschijnlijk moet het hier wél mee lukken; echter het probleem is dat het hier gaat om bijna 18000 rijen met daarbij vele kolommen, ik heb dit al 4 x geprobeerd en het loopt steeds vast.....Bedankt voor de tip/ truc iig, ik ga ermee aan de slag.

Mansoor :thumb:

 

[Wigi]

Waarschijnlijk moet het hier wél mee lukken; echter het probleem is dat het hier gaat om bijna 18000 rijen met daarbij vele kolommen, ik heb dit al 4 x geprobeerd en het loopt steeds vast.....Bedankt voor de tip/ truc iig, ik ga ermee aan de slag.

Mansoor :thumb:

Doe dat dan in kleinere stukken, waarschijnlijk lukt het dan wel.

 

[arafy]

ik zou in jouw geval het volgende doen:
in cel D1 het adres samenvoegen met '=A1&A2&A3' en dit doortrekken naar beneden.
met plakken speciaal - de waardes zetten
sorteren op kolom D
in E1 '=ALS(D1=D2;0;1)' en doortrekken naar beneden
met plakken speciaal - de waardes zetten
sorteren op kolom E en alle nulwaardes wissen.

het lijkt omslachtig, maar ik doe het regelmatig met enkele duizenden record en het is minder dan 2 minuten werk.

steven

 

[robdgr]

Steven,

Waarom niet gewoon met

=als(en(a2=a1;b2=b1,c2=c1);0;1)

 

[arafy]

Steven,

Waarom niet gewoon met

=als(en(a2=a1;b2=b1,c2=c1);0;1)

omdat ik bijna nooit met de EN-functie gewerkt heb, grijp ik er ook niet snel naar.

steven

 

[jpvs]

Deze macro in voor 8 kolommen en plaatst de gevonden gegevens vanaf kolom K tot R :

Sub Test1()
    Application.ScreenUpdating = False
        Range("K:R").Delete
    Columns("A:H").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
        "K:R"), Unique:=True
    Columns("K:R").EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

Pierre