Duplikaattien poisto

Avun tarpeessa

Miten saan poistettua yhdeltä riviltä ylimääräiset tekstit.
Tarkoituksena saada vain yhden kerran kukin teksti riville. Duplikaattien poistolla en ainakaan suoraan siinä onnistunut.
Eli jokaisella rivillä sama teksti 4-5 kertaa ja 4-5 eri tekstin pätkää. Näistä pitäisi saada poistettua ne ylimääräiset.

8

751

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • rautalankaa vailla

      kaipaa. Onko nuo poistettavat tekstit aina omassa sarakkeessaan (koko solu teksteineen voidaan tyhjentää/poistaa) vai voiko ne olla solussa tekstin keskelläkin?
      Anna esimerkki.

      • apua vailla

        Kaikki tekstit ovat omissa sarakkeissaan samalla rivillä esim. 1,2,4,3,2,3,1... jne. Eli ei missään järjestyksessä vaan täysin randomisti. Nyt sieltä välistä pitäisi vaan saada ne ylimääräiset tekstit pois ja myöskin niiden sarakkeet poistettua.
        Esim.

        Kyllä , Ei , Ehkä , Mahdollisesti , Kyllä , Mahdollisesti, Ehkä , Ei , Kyllä , Ei Mahdollisesti , Ehkä , Ehkä , Kyllä , Mahdollisesti, Ei
        Muotoon
        Kyllä , Ei , Ehkä , Mahdollisesti

        Kiitoksia vaan avusta jo etukäteen

      • kunde
        apua vailla kirjoitti:

        Kaikki tekstit ovat omissa sarakkeissaan samalla rivillä esim. 1,2,4,3,2,3,1... jne. Eli ei missään järjestyksessä vaan täysin randomisti. Nyt sieltä välistä pitäisi vaan saada ne ylimääräiset tekstit pois ja myöskin niiden sarakkeet poistettua.
        Esim.

        Kyllä , Ei , Ehkä , Mahdollisesti , Kyllä , Mahdollisesti, Ehkä , Ei , Kyllä , Ei Mahdollisesti , Ehkä , Ehkä , Kyllä , Mahdollisesti, Ei
        Muotoon
        Kyllä , Ei , Ehkä , Mahdollisesti

        Kiitoksia vaan avusta jo etukäteen

        oletuksena, että sarakkeessa A on tietoa...

        moduuliin ...

        Sub PoistaTuplatRiviltä()
        Dim Solu As Range
        Dim Alue As Range
        On Error Resume Next

        Range("A1").Select
        Do Until ActiveCell = ""
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 255).End(xlToLeft))
        For Each Solu In Alue
        If WorksheetFunction.CountIf(Alue, Solu) > 1 Then
        Solu.Clear
        End If
        Next Solu
        Alue.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
        ActiveCell.Offset(1, 0).Select
        Loop
        End Sub

      • Avun tarpeessa
        kunde kirjoitti:

        oletuksena, että sarakkeessa A on tietoa...

        moduuliin ...

        Sub PoistaTuplatRiviltä()
        Dim Solu As Range
        Dim Alue As Range
        On Error Resume Next

        Range("A1").Select
        Do Until ActiveCell = ""
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 255).End(xlToLeft))
        For Each Solu In Alue
        If WorksheetFunction.CountIf(Alue, Solu) > 1 Then
        Solu.Clear
        End If
        Next Solu
        Alue.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
        ActiveCell.Offset(1, 0).Select
        Loop
        End Sub

        Kiitoksia avusta.

        Ei kyllä vielä toimi ihan täysin. Olen amatööri näitten VBA koodien kanssa, sain kyllä ajettua sen moduuliin ja makron ajettua mutta, se toimii nyt vain yhden sarakkeen osalla. Sen pitäisi ajaa rivi kerrallaan 12 tekstin osalta noin 250 riviä.
        Koitan vielä itse tutkia asiaa mutta kun ei ole mitään kokemusta näistä niin mielellään otan neuvoja vastaan vielä.
        Eli tiedot L3-W3 pitäisi käsitellä L246-W246 asti. Näistä kun saisi kerättyä ne tiedot...

        kiitoksia vastauksista

      • kunde
        Avun tarpeessa kirjoitti:

        Kiitoksia avusta.

        Ei kyllä vielä toimi ihan täysin. Olen amatööri näitten VBA koodien kanssa, sain kyllä ajettua sen moduuliin ja makron ajettua mutta, se toimii nyt vain yhden sarakkeen osalla. Sen pitäisi ajaa rivi kerrallaan 12 tekstin osalta noin 250 riviä.
        Koitan vielä itse tutkia asiaa mutta kun ei ole mitään kokemusta näistä niin mielellään otan neuvoja vastaan vielä.
        Eli tiedot L3-W3 pitäisi käsitellä L246-W246 asti. Näistä kun saisi kerättyä ne tiedot...

        kiitoksia vastauksista

        ohjeissa mainitsin
        oletuksena, että sarakkeessa A on tietoa...

        no fiksasin sen sarakkeelle L

        Sub PoistaTuplatRiviltä()
        Dim Solu As Range
        Dim Alue As Range
        On Error Resume Next

        Range("L3").Select
        Do Until ActiveCell = ""
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 244).End(xlToLeft))
        For Each Solu In Alue
        If WorksheetFunction.CountIf(Alue, Solu) > 1 Then
        Solu.Clear
        End If
        Next Solu
        Alue.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
        ActiveCell.Offset(1, 0).Select
        Loop
        End Sub

      • Apua jo saanut
        kunde kirjoitti:

        ohjeissa mainitsin
        oletuksena, että sarakkeessa A on tietoa...

        no fiksasin sen sarakkeelle L

        Sub PoistaTuplatRiviltä()
        Dim Solu As Range
        Dim Alue As Range
        On Error Resume Next

        Range("L3").Select
        Do Until ActiveCell = ""
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 244).End(xlToLeft))
        For Each Solu In Alue
        If WorksheetFunction.CountIf(Alue, Solu) > 1 Then
        Solu.Clear
        End If
        Next Solu
        Alue.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
        ActiveCell.Offset(1, 0).Select
        Loop
        End Sub

        Loistavaa!

        Ehdin kyllä vaihtamaan sen jo L3:seen mutta ei vaan lähtenyt jostain syystä toimimaan.
        Nyt toimii ja hienosti.
        Kiitoksia säästit multa kyllä vähintään tuhannen ärräpäätä.
        Hienoa kun jaksoit auttaa ja vastailla!!!

      • kunde
        Apua jo saanut kirjoitti:

        Loistavaa!

        Ehdin kyllä vaihtamaan sen jo L3:seen mutta ei vaan lähtenyt jostain syystä toimimaan.
        Nyt toimii ja hienosti.
        Kiitoksia säästit multa kyllä vähintään tuhannen ärräpäätä.
        Hienoa kun jaksoit auttaa ja vastailla!!!

        piti siinä fiksata toinenkin rivi...
        sarake A
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 255).End(xlToLeft))

        sarake L
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 244).End(xlToLeft))

      • Kiitoksia
        kunde kirjoitti:

        piti siinä fiksata toinenkin rivi...
        sarake A
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 255).End(xlToLeft))

        sarake L
        Set Alue = Range(ActiveCell, ActiveCell.Offset(0, 244).End(xlToLeft))

        Kiitos vaan vielä kerran.
        Käsipelin tossa on menny ennen muutama päivä, nyt kun saatiin tiedot exceliin ja vielä tollanen makro niin johan nopeutus hommat.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      153
      4948

    2. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      19
      3575

    3. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      160
      3381

    4. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      38
      2877

    5. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      98
      2621

    6. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      21
      2026

    7. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      18
      1873

    8. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      10
      1665

    9. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      152
      1486

    10. Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo
      Suomalaiset julkkikset
      11
      1482
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt