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

1064

    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. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      126
      1740
    2. 105
      1215
    3. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1091
    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      999
    5. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      130
      900
    6. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      52
      887
    7. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      868
    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      73
      757
    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      739
    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      729
    Aihe