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

770

Äänestä

    Vastaukset 8

    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. Viesti sinulle

      Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️
      Ikävä
      53
      1059

    2. Mikä on totta mikä ei?

      Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?
      Kuhmo
      17
      1009

    3. Olen kironnut sinut alimpaan helvettiin

      Hyvää matkaa.
      Ikävä
      82
      851

    4. Mitä sinulle on tapahtunut lapsena

      Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)
      Ikävä
      80
      759

    5. Haluan purkaa vielä tuntemuksia

      Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei
      Ikävä
      21
      737

    6. Kyllä tiedän sun

      Likaiset pelit selän takana
      Ikävä
      59
      631

    7. Tunteiden käsittely kertoo ihmisestä.

      Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k
      Sinkut
      204
      627

    8. Lopetetaanko tämä

      Juttu ja mennään eteenpäin? Pystytkö?
      Ikävä
      104
      613

    9. Persujen Puhoksen retki

      Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet
      Perussuomalaiset
      188
      591

    10. Onko tuo joku katkera nainen oikeasti

      Joka sinua syyttää?
      Ikävä
      94
      558

    11. Jopa poliisi nauraa paskaista pelkuripersuille

      Puhoksessa jäi "isänmaantoivot" bussiin vapisemaan :-D https://www.is.fi/politiikka/art-2000012319632.html
      Maailman menoa
      260
      488

    12. Pilkettä sunnuntain silmässä

      😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto
      Sinkut
      73
      461

    13. Just saying

      Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.
      Ikävä
      85
      458

    14. Tehdään yhdessä itsestämme

      Parhaat versiot❤️ Se vaatii molemmilta hyvää itsetuntoa!
      Ikävä
      39
      434

    15. Aika on tuonut järkeä

      Sä et tiedä musta kaikkea. Jos tietäisit, ymmärtäisit, miksi me ei sovita yhteen. Öljy ja vesi. En mä ole valehdellut,
      Järki ja tunteet
      42
      413

    16. Voisin antaa sulle nyt

      Halin❤️
      Ikävä
      47
      400

    17. Ketkä käy potkimassa ovia öisin?

      Enää ei naurata.
      Haapavesi
      5
      388

    18. Onko muka 21 vuoden ikäero paljon?

      🤔
      Rakkaus ja rakastaminen
      29
      385

    19. Persut eivät uskaltaneet tulla ulos

      Bussiin jäivät https://www.iltalehti.fi/politiikka/a/d7f9fc57-dca0-40b8-9cb1-156e5872dba9
      Perussuomalaiset
      142
      376

    20. Miten viikonloppu meni

      Mielestäsi? Tapasitko kaivatun? Jos, etenivätkö asiat?
      Ikävä
      29
      348
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt