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

718

    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. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      102
      2204
    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
      114
      2001
    3. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      302
      1990
    4. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      344
      1791
    5. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      209
      1647
    6. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      37
      1435
    7. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      29
      1255
    8. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1153
    9. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      70
      1150
    10. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      52
      1089
    Aihe