Duplikaattien poisto kokonaan

exceleeert

Minulla on kaksi taulukkoa joissa toisessa on noin 50000 riviä ja toisessa noin 10000 riviä ja minun pitäisi saada poistettua isommasta taulukosta kaikki rivit joiden 3. sarakkeessa on sama tieto kuin pienemmän taulukon 3. sarakkeessa.

Kokeilin aikaisemmin yhdistää taulukot ja sain tällöin duplikaatit lajiteltua hajanaisesti peräjälkeen mutta tästäkään ei ollut apua koska en saanut kaikkia duplikaatteja allekkain jotta olisin voinut poistaa ne helposti.

Korostan vielä että en ole siis poistamassa ainoastaan duplikaattirivejä vaan kaikki rivit missä on 3. sarakkeessa samat tiedot pitäisi poistaa kokonaan.

Kiitos avusta jo etukäteen!

5

332

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kaavan.avulla

      Minä tekisin tuon siten, että ensin tekisin apusarakkeen isompaan, johon tulee rivinumerot 1,2...50000. Tuo sen vuoksi, että alkuperäinen järjestys saadaan säilytettyä pienen pyörittelyn jälkeen.

      Sitten hakisin isomman taulukon yhteen sarakkeeseen jokaista isomman taulukon kolmossarakkeen arvoa pienemmän taulukon kolmossarakkeista VLOOKUP-funktiolla, esim =VLOOKUP(C1;pikkutaulu.C:C;1;0). Tämä funktio siis isomman taulukon omaan sarakkeen ensimmäiselle (hakuarvon sisältävälle, tässä tapauksessa C1) riville.

      Tuo funktio palauttaa ko.arvon, jos se löytyy pienemmästä taulukosta, jos taas ei, niin palauttaa #N/A.

      Sen jälkeen järjestetään isompi taulukko VLOOKUP-funktion sarakkeen mukaiseen järjestykseen. Ei duplikaatit rivit järjestyvät #N/A-arvon vuoksi peräkkäin. Sen jälkeen voi poistaa helposti ne muut rivit, jotka ovat taulukossa peräkkäisillä riveillä.

      Lopuksi järjestetään isompi taulu uudelleen alkuperäiset rivinumerot sisältävän apusarakkeen mukaiseen järjestykseen ja viimeistellään taulukko poistamalla se ja VLOOKUP-kaavan sisältävä sarake.

      • kaavan.avulla

        Ja tuo VLOOKUP-kaava toki siis monistetaan isomman taulukon jokaiselle riville. Sen ensimmäinen parametri C1 muuttuu vaan rivin mukaan, eli toisella rivillä se olisi C2 jne.


    • moduuliin...
      Sub EtsiJaPoista()
      Dim vika As Long
      Dim solu As Range
      Dim cainoa As New Collection
      Dim i As Long
      Dim uList() As Variant
      'muuta taulukon nimi oikeaksi
      Worksheets("Sheet2").Activate
      ' muuta sarake oikeaksi
      vika = Range("C" & Rows.Count).End(xlUp).Row
      Application.Volatile
      On Error Resume Next
      ' muuta sarake oikeaksi
      For Each solu In Range("C1:C" & vika)
      If solu.Formula <> "" Then
      cainoa.Add solu.Value, CStr(solu.Value)
      End If
      Next solu
      If cainoa.Count > 0 Then
      ReDim uList(1 To cainoa.Count)
      For i = 1 To cainoa.Count
      uList(i) = cainoa(i)
      Next i

      End If
      'muuta nimi oikeaksi
      Worksheets("Sheet1").Activate
      For i = 1 To UBound(uList)
      ' muuta sarake oikeaksi
      EtsiJaSiirrä(uList(i), Range("C:C")).EntireRow.Delete
      Next
      On Error GoTo 0
      End Sub

      Function EtsiJaSiirrä(Hakuehto As Variant, Hakualue As Range) As Range
      Dim solu As Range
      Dim EkaOsoite As String
      Worksheets("Sheet1").Activate
      On Error Resume Next
      With Hakualue
      Set solu = .Find( _
      What:=Hakuehto, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False, _
      SearchFormat:=False)
      If Not solu Is Nothing Then
      Set EtsiJaSiirrä = solu
      EkaOsoite = solu.Address
      Do
      Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
      Set solu = .FindNext(solu)
      Loop While Not solu Is Nothing And solu.Address <> EkaOsoite
      End If
      End With

      End Function


      Keep EXCELing
      @Kunde

      • kaavan.avulla

        Näyttäisi tämä makrokin toimivan. Sheet1 on siis se "isompi" mistä rivit poistetaan, ja Sheet2 se toinen joka jää ennalleen.


      • juuri näin


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.

      Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.
      Joensuu
      241
      5525
    2. Mikä vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki
      Maailman menoa
      88
      3491
    3. PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan

      kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist
      Maailman menoa
      134
      3336
    4. Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan

      eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma
      Maailman menoa
      42
      3063
    5. Vassarina hymyilyttää vaurastuminen persujen kustannuksella

      Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne
      Maailman menoa
      72
      2939
    6. Riikka runnoo: Elisalta potkut 400:lle

      Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv
      Maailman menoa
      93
      2764
    7. Pidennetään viikko 8 päiväiseksi

      Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest
      Maailman menoa
      17
      2450
    8. Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?

      "Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k
      Maailman menoa
      103
      2317
    9. Miksi eristäydyt?

      Onko jokin syy kun vetäydyt omiin oloihin?
      Ikävä
      173
      1880
    10. Vapaa- ajan asunto palanut Haapavedellä

      Haapavesi päässyt Iltalehteen Vapaa- ajan asunto palanut 35 neliötä palanut. Missä päin tämä on ollut? Poliisin tutkinn
      Haapavesi
      9
      1440
    Aihe