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

681

    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. Pienimäki ei anna haastatteluja

      medialle Ähtärin kunnan velka sotkuista, kertovat luotettavat lähteet.
      Ähtäri
      18
      3951
    2. Sinuun ei tehoa mikään

      Annan periksi. En vain jaksa tuulimyllyä vastaan taistella. Miehelle
      Ikävä
      37
      3741
    3. Onko Kuhmolaiset tyytyväisiä?

      Kun pääsivät eroon huijari Polvisesta?
      Kuhmo
      22
      3160
    4. Huomenta ja hyvää tiistaita

      Huomenta ja hyvää tiistaita. ❄️🐺☕❄️
      Ikävä
      88
      1961
    5. En tiedä mitä ajatella

      Petaatko perjantaille jotain. Ei meidän kannata minun sydän on viety. Se joka sen vei ei ole mieheni, etkä se ole sinä.
      Tunteet
      36
      1802
    6. voitaisiinko unohtaa se sotku?

      Olisiko mahdollista aloittaa puhtaalta pöydältä vielä? Ikävä sua ****
      Ikävä
      16
      1761
    7. Hyviä vinkkejä täällä

      Eli kaivattua vain kädestä kiinni ja jos vastustelee niin sanoo, että hei beibi beibi nyt mennään vaan. Näin he elivät e
      Ikävä
      17
      1657
    8. Naisten ulkonäkö, jos miehiä ei olisi?

      Mä meinasin ensiksi, että en aloittaisi tätä keskustelua, ainan nyt, mutta huomasin tossa toisessa ketjussa, että tämä s
      Sinkut
      245
      1629
    9. Myös lähellä keskustaa oleva Marttaliitto jättää lihan pois tilaisuuksistaan ja suosituksistaan.

      Marttaliitossa siirrytään terveellisempään ruokavalioon ja ihmiselle tarpeeton liha jätetään pois, ympäristö ja luonto k
      Suomen Keskusta
      192
      1169
    10. Jee! Palsta toimii jälleen!

      Viestiarkisto näkyy ja kaikki pelittää. Tätä on odotettu, vaikka ei tässä mitään odotettavaa ole ollut.
      Sinkut
      20
      1109
    Aihe