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

710

Äänestä

    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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mies vinkkinä sulle

      Jos pyytäisit kahville tai ihan mihin vaan, niin lähtisin varmasti välittämättä muista
      Ikävä
      99
      7770

    2. Oletko katkera kun

      Et saanut kaivattuasi
      Ikävä
      107
      5587

    3. Mitä haluat sanoa tällä hetkellä

      Hänelle 🫶 ⬇️
      Ikävä
      275
      4851

    4. Haluun sua niin paljon

      ❤️🥰🥹 Miehelle
      Ikävä
      49
      4773

    5. Vietetään yö yhdessä

      Rakastellaan koko yö
      Ikävä
      74
      3527

    6. Mitä palveluita mies..

      Haluaisit tilata minulta? -N
      Ikävä
      50
      2818

    7. Oletko tyytyväinen viime tapaamiseemme?

      Vai toivoitko sen menevän toisella tavalla? Miten?
      Ikävä
      58
      2497

    8. Olet oikeasti ollut

      Niin tärkeä mulle ja kaikki meidän väliltä on pilattu ei yksistään sinun toiminnalla vaan minun myös.
      Ikävä
      22
      2448

    9. Kuuluu raksutus tänne asti kun mietit

      Pelkäätkö että särjen sydämesi vai mikä on? En mä niin tekisi mies koskaan 😘
      Ikävä
      29
      2392

    10. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      41
      2264
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt