Kuinka saan numerosarjan pilkottua yksittäisiksi numeroiksi

Pete H

Eli ongelmana on saada numerosarja pilkottua yksittäisiksi numeroiksi, niin että myös toisen solun sisältö pysyy samana. Saisiko tuon jollain kaavalla? Esimerkki.

Nyt on
Solu1 Solu2 Solu3
1 1 A
2 2 B
3 6 C
7 7 D


Pitäisi saada

1 A
2 B
3 C
4 C
5 C
6 C
7 D

10

1034

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ?!

      vaikea saada selvää tuosta. Onko yhdessä solussa 11A ja se pitäisi saada pilkottua useampaan soluun vai 1,1 ja A ovat kolmessa (3) eri solussa ja niistä pitäisi muodostaa uuteen soluun joku "parivaljakko"?

      • Pete H

        Kyseessä on siis numerosarjoja. Osassa ei varsinaisesti ole välejä ja osassa on. Ne pitäisi saada yksittäisiksi numeroiksi. Eli ensimmäinen numero sarja on 1-1 A (t.s. siinä ei ole mitään väliä vaan arvolla yksi tulee A) ja toisessa 2-2 B 3-6 C. Eli käytännössä on siis ongelma saada toi numero sarja 3-6 C, niin että siitä tulisi:
        3 C
        4 C
        5 C
        6 C


      • Pete H
        Pete H kirjoitti:

        Kyseessä on siis numerosarjoja. Osassa ei varsinaisesti ole välejä ja osassa on. Ne pitäisi saada yksittäisiksi numeroiksi. Eli ensimmäinen numero sarja on 1-1 A (t.s. siinä ei ole mitään väliä vaan arvolla yksi tulee A) ja toisessa 2-2 B 3-6 C. Eli käytännössä on siis ongelma saada toi numero sarja 3-6 C, niin että siitä tulisi:
        3 C
        4 C
        5 C
        6 C

        Niin mainittakoon vielä, että siis noi numerosarjat on tällä hetkellä kahdessa eri solussa, esim. A1 ja B1 ja toi kirjain sitten kolmannessa solussa C1.

        Vähän lyhennetty esimerkki:
        A1 B1 C1
        1 1 A
        3 6 C

        Pitäisi saada
        A1 B1 (voi tietenkin olla myös B1 ja C1)

        1 A
        3 C
        4 C
        5 C
        6 C


      • oikeasti haluat
        Pete H kirjoitti:

        Niin mainittakoon vielä, että siis noi numerosarjat on tällä hetkellä kahdessa eri solussa, esim. A1 ja B1 ja toi kirjain sitten kolmannessa solussa C1.

        Vähän lyhennetty esimerkki:
        A1 B1 C1
        1 1 A
        3 6 C

        Pitäisi saada
        A1 B1 (voi tietenkin olla myös B1 ja C1)

        1 A
        3 C
        4 C
        5 C
        6 C

        Ei ymmärrä !
        Viimeisestä viestistäsi ymmärrän että sinulla on solussa A1 1, B1 1 ja C1 A ??
        jos haluat esim D1 1A laita D1 soluun =A1&C1


      • oikeasti haluat kirjoitti:

        Ei ymmärrä !
        Viimeisestä viestistäsi ymmärrän että sinulla on solussa A1 1, B1 1 ja C1 A ??
        jos haluat esim D1 1A laita D1 soluun =A1&C1

        no problems...
        palaan ensiviikolla asiaan kun taas normaali enkkuversio kaytossa


    • AT-maikka

      minä sain tuon yo. esimerkin hoidettua funktiolla poimi.teksti
      sarake A sarake B sarake C
      =POIMI.TEKSTI(A30;1;1) =POIMI.TEKSTI(A30;3;1) ja kolmanteen sarakkeeseen tulee =B30&C30
      kopio täyttökahvalla
      muitakin ratkaisuja on. Tämä toimivain < 10 numeroilla

      • AT-maikka

        Ai niin täss muotoilut häviää. Ymmärsin ehkä väärin tehtävän jos pitää yhdistää kakden solun esim b30 ja c30 tekstit niin funktiolla =B30&c30


      • AT-maikka kirjoitti:

        Ai niin täss muotoilut häviää. Ymmärsin ehkä väärin tehtävän jos pitää yhdistää kakden solun esim b30 ja c30 tekstit niin funktiolla =B30&c30

        moduuliin...
        esimerkissä pilkkoo solualueen (taulukko Sheet1) A1:C10 solusta E1 alaspäin
        muuttele sopivaksi

        Dim i As Integer
        Sub Koe(OriginaaliAlue As Range, KopioAlue As Range)
        Worksheets("Sheet1").Activate
        KopioAlue.Resize(1000, 2) = ""
        For Each Row In OriginaaliAlue.Rows
        KopioAlue.Select
        i = 0
        For i = Row.Cells(1, 1) To Row.Cells(1, 2)
        KopioAlue = i
        KopioAlue.Offset(0, 1) = Row.Cells(1, 3)
        Set KopioAlue = KopioAlue.Offset(1, 0)
        Next
        Next
        End Sub
        Sub Testi()
        Koe Range("A1:C10"), Range("E1")
        End Sub


      • ongelmako?
        kunde kirjoitti:

        moduuliin...
        esimerkissä pilkkoo solualueen (taulukko Sheet1) A1:C10 solusta E1 alaspäin
        muuttele sopivaksi

        Dim i As Integer
        Sub Koe(OriginaaliAlue As Range, KopioAlue As Range)
        Worksheets("Sheet1").Activate
        KopioAlue.Resize(1000, 2) = ""
        For Each Row In OriginaaliAlue.Rows
        KopioAlue.Select
        i = 0
        For i = Row.Cells(1, 1) To Row.Cells(1, 2)
        KopioAlue = i
        KopioAlue.Offset(0, 1) = Row.Cells(1, 3)
        Set KopioAlue = KopioAlue.Offset(1, 0)
        Next
        Next
        End Sub
        Sub Testi()
        Koe Range("A1:C10"), Range("E1")
        End Sub

        Solun sisällä on tämä: 1.1.2010 - 9:45 - 14:45 - 1:08. Miten saan 1.1.2010, 9:45, 14:45 ja 1:08 omiin soluihin, jotta voisin suorittaa laskutoimituksia solujen välillä? Edellä olevasta viestistä en ymmärtänyt yhtään mittään.


      • ...
        ongelmako? kirjoitti:

        Solun sisällä on tämä: 1.1.2010 - 9:45 - 14:45 - 1:08. Miten saan 1.1.2010, 9:45, 14:45 ja 1:08 omiin soluihin, jotta voisin suorittaa laskutoimituksia solujen välillä? Edellä olevasta viestistä en ymmärtänyt yhtään mittään.

        Teksti sarakkeisiin, erottimeksi -
        http://office.microsoft.com/fi-fi/excel/HA101023401035.aspx


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

    Luetuimmat keskustelut

    1. Kelekkakisat

      Mikä vakava onnettomuus sattunut kisoissa. On peruttu koko kisat. Pelastuskopteri näytti käyvän paikalla.
      Nivala
      26
      11029
    2. Aivan kauheaa

      Veikö koskiuoma taas ihmishengen? Se pitää kieltää!
      Imatra
      42
      8377
    3. Onko kaivattusi

      …mielestäsi älykäs, tai kenties tyhmä? Oma mielipide.
      Ikävä
      127
      5300
    4. Kuinka pitkä välimatka

      on teidän kotien välillä?
      Ikävä
      144
      3674
    5. Epäilen ettet edes

      Kehtaisi liikkua kanssani.
      Ikävä
      69
      3588
    6. Virkamiehille tarvitaan tuntuvat palkankorotukset

      Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
      Maailman menoa
      35
      3544
    7. Oletko huomannut

      Yhden muutoksen?
      Ikävä
      33
      3167
    8. Jäikö meidän välit

      Mielestäsi Kesken?
      Ikävä
      55
      2549
    9. Olisipa saanut sinuun

      Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
      Ikävä
      35
      2041
    10. Miltä mahtaa tuntua

      Sitten kun näet hänet pitkästä aikaa?
      Tunteet
      28
      1796
    Aihe