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

350

    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. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      136
      2754
    2. Miten juhlitte ensi lauantaina?

      Se on kalenteriin merkitty juhlapäiväksi, niin sitä kai kuuluu juhlia.
      Maailman menoa
      268
      2340
    3. Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?

      JOS siis sinä saisit päättää?
      Maailman menoa
      22
      1423
    4. Voi mies olit taas niin komea

      Olet silmäkarkkia ❤️ Sua vois katsella vaikka koko päivän. ❤️
      Ikävä
      115
      1102
    5. Kadutko koskaan

      Sitä mun iskiyritystä?
      Ikävä
      97
      1064
    6. Uudestisyntyminen ei tapahdu kasteessa

      Tässä Apostolien tekojen kohdassa näemme, että Filippus julisti hoviherralle ensin evankeliumia ja kuulusteli sitten tar
      Kaste
      204
      1023
    7. Ryöstö Punkaharjulla

      Punkaharjun k-market ryöstetty tänään keskellä päivää, ketä lie asialla? Poliiseja ainakin pörrää ympäriisee
      Savonlinna
      13
      952
    8. Lasse Lehtonen on yhtä aikaa sairauslomalla ja työmatkalla

      Kelan johtaja näyttää vötkyilyn mallia, otti sairaslomaa ja lähti Brysseliin sitten ryyppäämään! 😂 Kelan pääjohtaja La
      Lieksa
      57
      851
    9. Evoluutioon ja alkuräjähdykseen uskominen vaatii todella vahvaa uskoa

      Että tyhjästä syntyi ja kehittyi kaikki se mitä näemme ympärillämme.
      Luterilaisuus
      282
      810
    10. Mistä juttelit viimeisen kerran

      Mistä juttelitte viimeisen kerran ikävöinnin kohteen kanssa? Irl tai viesteillä.
      Ikävä
      50
      781
    Aihe