Tekstin poimiminen

Jakke

Onko mahdollista saada seuraavanlaista toimintoa:
A-sarake      B-sarake
Virtanen Heikki      Virtanen
Virtanen Asko      Virtanen
Korhonen Ville      Korhonen
Tuominen Eetu      Tuominen
Korhonen Reino      Korhonen

Eli minulla olisi A sarkeessa ihmisten nimiä ja pitäisi saada B-sarkkeeseen kopioitua A-sarkkeen ihmisten sukunimet. Eri sukunimiä on noin 20kpl ja A-sarakkeessa nimiä noin 500kpl. Miten teen?

15

4857

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali

      Tee soluun B1 kaava
      =POIMI.TEKSTI(A1;1;KÄY.LÄPI(" ";A1))
      ja vedät täyttökahvalla niin pitkälle kun nimiä riittää. Poimii tekstin välilyöntiin asti, jos sukunimi on kaksiosainen poimii vain ensimmäisen osan.

      • Jakke

        Nimet ovat tosiaan kaksi osaisia joten toinen osa jää pois. Olisiko mahdollista että se tutkisi listan jossa se kävisi läpi sukunimet, kun niitähän ei ole kuin se 20kpl.


      • Mika
        Jakke kirjoitti:

        Nimet ovat tosiaan kaksi osaisia joten toinen osa jää pois. Olisiko mahdollista että se tutkisi listan jossa se kävisi läpi sukunimet, kun niitähän ei ole kuin se 20kpl.

        Eikös kaksiosaiset sukunimet kirjoiteta väliviivalla. Silloinhan tuon pitäisi toimia. (Poikkeuksena tosin jotkut "von Hertzen"-tyyppiset nimet)

        Lisäisin tuon funktion loppupuolelle vielä "-1", niin se välilyönti ei tule mukaan:

        =POIMI.TEKSTI(A1;1;KÄY.LÄPI(" ";A1)-1)


        - Mika


      • paavali
        Jakke kirjoitti:

        Nimet ovat tosiaan kaksi osaisia joten toinen osa jää pois. Olisiko mahdollista että se tutkisi listan jossa se kävisi läpi sukunimet, kun niitähän ei ole kuin se 20kpl.

        Jos nimi on muodossa
        Koski-Vähälä Reino
        tuo kaava toimii, Mutta jos nimi on muodossa
        Rantala Kamunen Tuula
        poimii vain Rantala.
        Millaisessa muodossa niitä on.


      • Jakke
        Mika kirjoitti:

        Eikös kaksiosaiset sukunimet kirjoiteta väliviivalla. Silloinhan tuon pitäisi toimia. (Poikkeuksena tosin jotkut "von Hertzen"-tyyppiset nimet)

        Lisäisin tuon funktion loppupuolelle vielä "-1", niin se välilyönti ei tule mukaan:

        =POIMI.TEKSTI(A1;1;KÄY.LÄPI(" ";A1)-1)


        - Mika

        Suurin osa on kyllä normaaleja sukunimiä, mutta löytyy myös noita saksalaisia nimiä Von, Dam, yms.


      • Jakke
        paavali kirjoitti:

        Jos nimi on muodossa
        Koski-Vähälä Reino
        tuo kaava toimii, Mutta jos nimi on muodossa
        Rantala Kamunen Tuula
        poimii vain Rantala.
        Millaisessa muodossa niitä on.

        Ilman väliviivaa. Nyt toteutin sen niin että C-sarakkeessa on seuraava kaava:
        =JOS(B1="Herzen";KETJUTA(B1;" Von");JOS(B1="Dam";KETJUTA(B1;" Van");B1))

        En nyt ihan tarkaan muista montako ikävää sukunimi muunnosta löytyy mutta ei niitä montaa ollut.


      • paavali
        Jakke kirjoitti:

        Ilman väliviivaa. Nyt toteutin sen niin että C-sarakkeessa on seuraava kaava:
        =JOS(B1="Herzen";KETJUTA(B1;" Von");JOS(B1="Dam";KETJUTA(B1;" Van");B1))

        En nyt ihan tarkaan muista montako ikävää sukunimi muunnosta löytyy mutta ei niitä montaa ollut.

        se onnistuu, Mutta ei onnistu ilman -1, josta Mika jo mainitsi.


      • Kunde
        paavali kirjoitti:

        se onnistuu, Mutta ei onnistu ilman -1, josta Mika jo mainitsi.

        Lisää moduuli ja sinne funktio

        Function Sukunimi(Teksti As String)
        Dim i As Integer
        Dim sana As String
        i = 1
        Do Until sana Like (" *")
        sana = Right(Teksti, i)
        i = i 1
        Loop
        Sukunimi = Left(Teksti, Len(Teksti) - Len(sana))
        End Function

        sitten liitä funktio nappulalla haet sukunimi funktion tai kirjoitat suoraan soluun
        =Sukunimi(A1) ja kopioit alas
        :)Kunde


      • Jakke
        Kunde kirjoitti:

        Lisää moduuli ja sinne funktio

        Function Sukunimi(Teksti As String)
        Dim i As Integer
        Dim sana As String
        i = 1
        Do Until sana Like (" *")
        sana = Right(Teksti, i)
        i = i 1
        Loop
        Sukunimi = Left(Teksti, Len(Teksti) - Len(sana))
        End Function

        sitten liitä funktio nappulalla haet sukunimi funktion tai kirjoitat suoraan soluun
        =Sukunimi(A1) ja kopioit alas
        :)Kunde

        Täytyy kokeilla kaikki mahdolliset ja mahdottomat tapaukset. Niin huomasin ettei toimi kunnolla.
        Jos on nimi Virtanen Maija Liisa ilman väliviivaa niin tulos on Virtanen Maija.


      • Mika
        Jakke kirjoitti:

        Täytyy kokeilla kaikki mahdolliset ja mahdottomat tapaukset. Niin huomasin ettei toimi kunnolla.
        Jos on nimi Virtanen Maija Liisa ilman väliviivaa niin tulos on Virtanen Maija.

        Tämä nyt tässä vaihessa enää paljon auta, mutta kuitenkin...

        Taitaa olla varmin kosnti se, että tietojen tallennus vaiheessa käyttää noissa sukunimissä vaikka alaviivaa tyyliin von_Hertzen, ja poistaa "ala-apuviivat" sitten kun tietoja esitetään.


        - Mika


      • edwf
        Mika kirjoitti:

        Eikös kaksiosaiset sukunimet kirjoiteta väliviivalla. Silloinhan tuon pitäisi toimia. (Poikkeuksena tosin jotkut "von Hertzen"-tyyppiset nimet)

        Lisäisin tuon funktion loppupuolelle vielä "-1", niin se välilyönti ei tule mukaan:

        =POIMI.TEKSTI(A1;1;KÄY.LÄPI(" ";A1)-1)


        - Mika

        Entäpä jos haluan sen loppu osan välilyönnin jälkeen C soluun?


    • MSK

      Tämä hirviö B2 soluun tutkittava nimi A2 solussa.

      =POIMI.TEKSTI(A2;1;JOS(ONVIRH(KÄY.LÄPI(" ";A2;KÄY.LÄPI(" ";A2;1) 1));KÄY.LÄPI(" ";A2;1);KÄY.LÄPI(" ";A2;KÄY.LÄPI(" ";A2;1) 1)))

      Tämä tutkii mahdollisen toisen välilyönnin, joten poimii kaksiosaisen sukunimen, mutta ei toimi tälläisenään, jos etunimistäkin löytyy välilyöntejä eli on kaksiosaisia etunimiä (siinä tapauksessa poimii myös ensimmäisen etunimen, jos sukunimessä ei välilyöntiä). pienellä jatkojalostuksella saisi tuonkin tutkittua.

      • Kunde

        MSK kirjoittaa
        "Tämä tutkii mahdollisen toisen välilyönnin, joten poimii kaksiosaisen sukunimen, mutta ei toimi tälläisenään, jos etunimistäkin löytyy välilyöntejä eli on kaksiosaisia etunimiä (siinä tapauksessa poimii myös ensimmäisen etunimen, jos sukunimessä ei välilyöntiä). pienellä jatkojalostuksella saisi tuonkin tutkittua."

        Tuon pienen jatkojalostuksen haluan minäkin nähdä...
        tehtävässähän ei ole mitään muuta vaikeutta kuin kaksi välilyöntiä, eli tapaukset
        1. kaksiosainen sukunimi ja välilyönnillä erotettu nimi ja
        2. välilyönillä erotettu sukunimi ja kaksiosainen etunimi

        Miten ihmeessä MSK aiot selvittää kumpiko tapaus on kyseessä?

        :)Kunde


      • MSK
        Kunde kirjoitti:

        MSK kirjoittaa
        "Tämä tutkii mahdollisen toisen välilyönnin, joten poimii kaksiosaisen sukunimen, mutta ei toimi tälläisenään, jos etunimistäkin löytyy välilyöntejä eli on kaksiosaisia etunimiä (siinä tapauksessa poimii myös ensimmäisen etunimen, jos sukunimessä ei välilyöntiä). pienellä jatkojalostuksella saisi tuonkin tutkittua."

        Tuon pienen jatkojalostuksen haluan minäkin nähdä...
        tehtävässähän ei ole mitään muuta vaikeutta kuin kaksi välilyöntiä, eli tapaukset
        1. kaksiosainen sukunimi ja välilyönnillä erotettu nimi ja
        2. välilyönillä erotettu sukunimi ja kaksiosainen etunimi

        Miten ihmeessä MSK aiot selvittää kumpiko tapaus on kyseessä?

        :)Kunde

        Joo... tajusin tuon välittömästi kirjoitettuani edellisen viestini. Kai toivoin, että kukaan ei tuota mokaa huomaisi... Aika mahdotonta on ilman sanakirjalla varustettua massiivista ohjelmaa selvittää kolmesta peräkkäisestä sanasta, mikä on sukunimeä ja mikä etunimeä.
        Ajattelin tuossa kai sitä, että mahdollisen kolmannenkin välilyönnin voisi ottaa kaavassa huomioon...


    • sdcvsdc

      Asia selvisikin...Eli tein tällaisella kaavalla sen loppuosan haun. Löysin vastauksen toisaalta ja nättäisi toimivan

      =POIMI.TEKSTI(A5;(ETSI(" ";A5)) 1;50)

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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      84
      6709
    2. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      290
      5474
    3. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      98
      4161
    4. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      32
      3099
    5. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      52
      2910
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      120
      2103
    7. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      47
      2040
    8. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      99
      1767
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      72
      1311
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      159
      1151
    Aihe