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
      59
      1561

    2. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      26
      1194

    3. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      85
      1048

    4. Nyt se syksy on sitten alkanut

      Esimerkiksi tänään sataa aamusta iltaan, ja nytkin.
      Maailman menoa
      42
      867

    5. Mitä söpö

      Mies mietit?
      Ikävä
      65
      826

    6. Minä en ole koskaan

      Rakastanut ketään toista yhtä paljon kuin sinua
      Ikävä
      92
      794

    7. Humalassa autolla ajo.

      Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.
      Suomussalmi
      15
      759

    8. 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
      19
      715

    9. 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
      715

    10. Vähän pitää

      Kiusia ja näyttää
      Ikävä
      115
      686

    11. Jäljitelmä Birginit

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

    12. Suloinen ja herkkä

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

    13. Hurja pako Kuhmossa

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

    14. Taidat olla

      Luovuttanut jo minun suhteeni osalta?
      Ikävä
      43
      601

    15. Minä muistan

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

    16. Anteeksi J-mies

      Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t
      Ikävä
      74
      557

    17. Mä voisin rakastua noihin tähti silmiin

      Katseesi on niin lumoava nainen💚.
      Ikävä
      19
      556

    18. Jos tullaan toisiamme vastaan, niin

      pitäiskö pysähtyä ja onnitella?
      Ikävä
      44
      538

    19. 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ä
      25
      531

    20. Kenen viisautta on ollut laittaa tie väärällä murskeella pilalle

      Kenen viisautta on ollut kun Siimeksen/Kylmänpurontie pantu pilalle kun on ajettu liian karkeaa mursketta. Rengasliikke
      Hyrynsalmi
      17
      487
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt