Ylimääräisten rivien poisto?

Avusta kiitollinen

Yhdistäisin yhdeksi tiedostoksi muutaman eri tiedoston, joissa on sähköpostiosoitteita. Ongelma on se, että eri tiedostoissa saattaa olla keskenään samoja osoitteita. Onkohan excelissä ominaisuutta, jolla voisi poistaa yhdistetystä tiedostosta enemmän kuin kerran esiintyvät osoitteet eli niin, että jäljelle jää vain yksi kappale kutakin osoitetta?

6

719

Äänestä

    Vastaukset 6

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...
      muuta sarake sopivaksi. Nyt A-sarakkeesta haetaa tuplia

      Sub PoistaTuplat()
      Dim solu As Range
      Dim Vika As Double
      Dim i As Long
      Dim EiTupla As New Collection
      On Error GoTo virhe
      Vika = Range("A65536").End(xlUp).Row
      Range("A" & Vika).Select
      For i = Vika To 1 Step -1
      If Not IsEmpty(ActiveCell) Then
      EiTupla.Add ActiveCell.Value, CStr(ActiveCell.Value)
      If i = 1 Then Exit For
      ActiveCell.Offset(-1, 0).Select
      End If
      Next
      Exit Sub
      virhe:
      ActiveCell.EntireRow.Delete
      Resume Next
      End Sub

      Keep Excelling
      @Kunde

      • ei ihan virtuoosi

        Kiitos vastauksesta, mutta tuo taitaa mennä yli osaamiseni. Mihin ja miten tuo teksti piti syöttää? Tuo moduli -juttu meni vähän ohi.

      • kunde
        ei ihan virtuoosi kirjoitti:

        Kiitos vastauksesta, mutta tuo taitaa mennä yli osaamiseni. Mihin ja miten tuo teksti piti syöttää? Tuo moduli -juttu meni vähän ohi.

        Excelin puolella siis taulukkonäkymässä ALT F11 näppäinyhdistelmä avaa VBA editorin ja sieltä valitset valikosta INSERT/MODULE ja aukeavaan ikkunaan ((oletuksena Module1) kopioit koodin. Sitten vain suoritat ko proseduurin.
        vaihtoehtoisesti valikon File/Tiedosto vasemmalla puolella olevaa excel kuvaketta klikkaamalla hiiren oikealla ja valitsemalla View Code/ Näytä koodi aukeaa VBA editori ja sitten samat jutut kuin edellisessäkin

      • melkein virtuoosi
        kunde kirjoitti:

        Excelin puolella siis taulukkonäkymässä ALT F11 näppäinyhdistelmä avaa VBA editorin ja sieltä valitset valikosta INSERT/MODULE ja aukeavaan ikkunaan ((oletuksena Module1) kopioit koodin. Sitten vain suoritat ko proseduurin.
        vaihtoehtoisesti valikon File/Tiedosto vasemmalla puolella olevaa excel kuvaketta klikkaamalla hiiren oikealla ja valitsemalla View Code/ Näytä koodi aukeaa VBA editori ja sitten samat jutut kuin edellisessäkin

        No, niin. Onnistuuhan se kun rautalangasta vääntää. Kiitos paljon.

    • ja vot

      Hyvänen aika ei tämän takia tarvitse alkaa ohjelmaa kirjoittaa. Valitse 'Tiedot' ja sen jälkeen 'Poista kaksoiskappaleet'

      • kunde

        eipähän ole tommosta toimintaa vanhemmissa Excelissä....
        ja vot on hyvä ja kertoo mitenkä hän sen tekee 2003 versiossa ilman makroa?

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Puukotus Kajaanissa

      Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu
      Kajaani
      49
      1145

    2. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      16
      795

    3. Mitä söpö

      Mies mietit?
      Ikävä
      63
      725

    4. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      68
      722

    5. Miten uskallan sua nähdä

      Kun vaikutat suuttuneelta :(
      Ikävä
      47
      694

    6. Nainen, tässä olen kahden vaiheilla

      Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa
      Ikävä
      69
      668

    7. Hyvä on sitten, jos et sitä s*ksiä halua kanssani.

      Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.
      Ikävä
      131
      605

    8. Suloinen ja herkkä

      Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.
      Rakkaus ja rakastaminen
      31
      575

    9. Humalassa autolla ajo.

      Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.
      Suomussalmi
      9
      530

    10. Minä muistan

      Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol
      Ikävä
      45
      498

    11. Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."

      Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i
      Kotimaiset julkkisjuorut
      8
      480

    12. Hyvää yötä hurmuri

      Iltaa haaveeni! Kauniita unia😘 Jospa me vielä nähtäis ja juteltais, suukoteltais ja halittais, siliteltäis ja hyväiltä
      Ikävä
      24
      463

    13. Hurja pako Kuhmossa

      19 vuotias kaahasi humalassa jalkakäytävälle tänään. Kuka mitä häh.
      Kuhmo
      4
      462

    14. Jäljitelmä Birginit

      Ei jumaleisson, Jeffin vaimo kertoo et nää Hermesit olikin jäljitelmiä ja timangit labrarääsää. Anna mun kaikki kestää �
      Kotimaiset julkkisjuorut
      104
      459

    15. Pitäisikö seksille asettaa huvivero?

      (ja jos hankkisi todistuksen sen harrastamisesta velvollisuudesta tai lisääntymistarkoituksessa, saisi siitä vapautuksen
      Sinkut
      113
      434

    16. Olet pelottava ilme vakavana

      Sitä alkaa ajatella äkkiä kaikenlaista. Synkkiäkin juttuja. Kai tässä oma mielikuvitus kun laukkaa. 🤔😳
      Ikävä
      26
      417

    17. Mä voisin rakastua noihin tähti silmiin

      Katseesi on niin lumoava nainen💚.
      Ikävä
      13
      400

    18. Kaduttaako kun jätit vastaamatta

      Vai oliko tarkoitus satuttaa?
      Ikävä
      33
      398

    19. Kaikki pilattu

      Paluuta normaaliin ei ole. Kiitos ja hyvästi.
      Ikävä
      30
      385

    20. Jos tullaan toisiamme vastaan, niin

      pitäiskö pysähtyä ja onnitella?
      Ikävä
      32
      376
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt