Numeroita sisältävien solujen siirtäminen omaan sarakkeeseensa

Anonyymi-ap

Saako excelissä siirrettyä numeroita sisältävät solut omaan sarakkeeseensa jollain konstilla? Eli esim. jos solussa A1 on abcd, A2 1234, A3 efgh, A4 5678, niin abcd ja efgh jäisi sarakkeeseen A, mutta 1234 ja 5678 pitäisi siirtää sarakkeeseen B, jolloin sarake A jäisi tyhjäksi. Myös numeroita sisältävät solut ovat tekstimuodossa. Rivejä on satoja.

10

519

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Ja lisäkysymys. Saako tekstin eroteltua omaan sarakkeeseen ja numerot omaansa, jos solussa on useampi sana? Esim. solussa A1 on tekstimuodossa abcd efgh 1234, niin abcd efgh pitäisi siirtää soluun B1 ja 1234 soluun C1. Teksti ja numerosarjat ovat eri pituisia.

      • Anonyymi

        Näillä funktioilla saat tekstit ja numerot erilleen

        Function tekstit(s As String)
        If s = "" Then
        tekstit = ""
        Exit Function
        End If
        tx = Split(s, " ")
        On Error GoTo eiluku:
        For i = 0 To UBound(tx)
        dummy = CDbl(tx(i))
        Next i
        If t = "" Then
        tekstit = ""
        Else
        tekstit = Left(t, Len(t) - 1)
        End If
        Exit Function
        eiluku:
        t = t & tx(i) & " "
        Resume Next
        End Function

        Function numerot(s As String)
        If s = "" Then
        numerot = ""
        Exit Function
        End If
        tx = Split(s, " ")
        On Error Resume Next
        For i = 0 To UBound(tx)
        t = t & CDbl(tx(i)) & " "
        Next i
        If t = "" Then
        numerot = ""
        Else
        numerot = Left(t, Len(t) - 1)
        End If
        End Function


      • Anonyymi
        Anonyymi kirjoitti:

        Näillä funktioilla saat tekstit ja numerot erilleen

        Function tekstit(s As String)
        If s = "" Then
        tekstit = ""
        Exit Function
        End If
        tx = Split(s, " ")
        On Error GoTo eiluku:
        For i = 0 To UBound(tx)
        dummy = CDbl(tx(i))
        Next i
        If t = "" Then
        tekstit = ""
        Else
        tekstit = Left(t, Len(t) - 1)
        End If
        Exit Function
        eiluku:
        t = t & tx(i) & " "
        Resume Next
        End Function

        Function numerot(s As String)
        If s = "" Then
        numerot = ""
        Exit Function
        End If
        tx = Split(s, " ")
        On Error Resume Next
        For i = 0 To UBound(tx)
        t = t & CDbl(tx(i)) & " "
        Next i
        If t = "" Then
        numerot = ""
        Else
        numerot = Left(t, Len(t) - 1)
        End If
        End Function

        Kiitos ohjeesta ja vaivannäöstä! Ei vaan taida omat taitoni riittää näiden käyttämiseen. Onko nämä VBA:n puolella käytettäviä funktioita?


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos ohjeesta ja vaivannäöstä! Ei vaan taida omat taitoni riittää näiden käyttämiseen. Onko nämä VBA:n puolella käytettäviä funktioita?

        Paina Alt+F11 –> aukeaa VBA-editori
        Sieltä ylhäältä valitset Insert - Module –> Ilmestyy ikkuna Module1
        Kopioi nuo funktiot sinne, minkä jälkeen niitä voi käyttää kuten muitakin Excelin funktioita.
        Makroja sisältävä Excel-tiedosto on talletettava muodossa *.xlsm


    • Anonyymi

      Funktio ISNUMBER tunnistaa, onko solussa numero vai jotain muuta.

      =IF(ISNUMBER(A1;A1;"") - tulostaa A1 arvon, jos se on numero
      =IF(ISNUMBER(A1;"";A1) - tulostaa A1 arvon, jos se ei ole numero

      • Anonyymi

        Kiitos! Mutta jostain syystä excel ilmottaa, että kaavassa on virhe. En tiedä, mitä teen väärin... Jollain excelistä löytyneellä funktiolla sain eriteltyä numeroita ja tekstiä sisältävät solut: TOSI tai EPÄTOSI, mutta itse teksti tai numerosarja ei tulostu soluun.


      • Anonyymi
        Anonyymi kirjoitti:

        Kiitos! Mutta jostain syystä excel ilmottaa, että kaavassa on virhe. En tiedä, mitä teen väärin... Jollain excelistä löytyneellä funktiolla sain eriteltyä numeroita ja tekstiä sisältävät solut: TOSI tai EPÄTOSI, mutta itse teksti tai numerosarja ei tulostu soluun.

        Sinulla on suomennettu Excel
        https://fi.excelfunctions.eu


    • Anonyymi

      Mauaalisesti helppo tapa on seuraava, ei ihan mitä haluat
      Valitset sarakkeen A
      Data valinnasta Text to Colum ja vastaat kysymksiin.

    • jos tekstit A-sarakkeessa
      B1 soluun matriisikaava SHIFT+CTRL+ENTER (tekstit)
      ={TEXTJOIN("";TRUE;IF(ISERROR(MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)*1);MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1);""))}

      C1 soluun matriisikaava SHIFT+CTRL+ENTER (numerot)
      ={TEXTJOIN("";TRUE;IFERROR((MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)*1);""))}

      Keep EXCELing
      @Kunde

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

    Luetuimmat keskustelut

    1. Valkeakosken murhaaja

      Raiskausrikosten joukossa kanta suomalainen tekijä on niin harvinainen että kannattaa erikseen mainita. Raiskausuutisia
      Maailman menoa
      182
      10902
    2. Valkeakosken sekopää murhaaja.

      Itselläni on 3 teini ikäistä tytärtä ja tämä tapaus on herättänyt minussa tosi paljon surua ja vihaa. On käsittämättömän
      Valkeakoski
      140
      2014
    3. Naiset pysyy sinkkuna ja ottavat mieluimmin koiran

      Nykynainen ei halua jakaa elämäänsä miehen kanssa, vaan elää yksin ja ottaa koiran tai koiria. Ja pikkuvähemmistö eli in
      Sinkut
      241
      1354
    4. Sille yhelle vaa

      Viime aikoina oon miettinyt sun juttuja aika paljon. Vaikka en oo saanu susta vielä kunnolla selvää kuvaa, jotenkin tunt
      Ikävä
      61
      990
    5. Kiitos kun annoit värejä elämääni

      Edes pienen hetken. Sellasiakin mitä en muuten näe ;) ❤️
      Ikävä
      53
      890
    6. Hiljaista on

      Ei kuulu viestiä 😘 pallo on sinulla Mies, odotan!
      Ikävä
      60
      838
    7. Nainen, se kun olit joskus niin vakavana

      ja naama peruslukemilla, toisinaan silloinkin kun kuuntelit juttujani. Se ilme on jäänyt lähtemättömästi mieleeni. Mitäh
      Ikävä
      42
      737
    8. Onhan sulla

      Nainen nyt varmasti kaikki hyvin.
      Ikävä
      52
      689
    9. Olen ylpeä sinusta

      nainen. Vaikutat "vanhalta" tekijältä. Olet aarre tälle touhulle ja uskon että pääset vielä pitkälle jos haluat. Ehkä sa
      Tunteet
      25
      675
    10. Kysymys iltaan

      Kuinka kuuma kaivattusi on celsius-asteikolla?
      Ikävä
      42
      669
    Aihe