Koodia - tietueet riveillä

Excel4ever

Mahtaako löytyä yksinkertainen koodinpätkä tekemään seuraavaa:
Taulussa kentät ovat riveillä, tietue on erotettu erikoismerkillä (ESIM #).
Kuinka saan tietueittain tiedot poimittua ja transponoitua tietueet riveittäin?

kiitos

4

228

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vastapäivä

      Onko varsinaiset tiedot sarakkeissa? Mihin tarvitaan "erikoismerkkiä"?

      • Excel4ever

        Tiedot ovat sarakkeessa A alekkain, erikoismerkki on tietue-erotin


    • Tämmöinen

      Sub sarakkeisiin()
         c = 1 ' kenttien sarake - tulostus tästä oikealle
         r0 = 1 ' ensimmäinen rivi
         rr = 3 ' viimeinen rivi
         erotin = "#"
         
         For r = r0 To rr
            a = Split(Cells(r, c), erotin)
            For i = 0 To UBound(a)
               Cells(r0 i, c 1 r - r0).Value = a(i)
            Next
         Next r
      End Sub

    • hashtgi

      Riittäisikö Teksti sarakkeisiin - erotusmerkkinä tuo # ja sitten alueen transponointi ?

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

    Luetuimmat keskustelut

    1. Ja taas ammuttu kokkolassa

      Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.
      Kokkola
      47
      5139
    2. Mitä siellä ABC on tapahtunut

      Tavallista isompi operaatio näkyy olevan kyseessä.
      Alajärvi
      78
      3486
    3. Helena Koivu on äiti

      Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.
      Kotimaiset julkkisjuorut
      321
      2128
    4. Milli-helenalla ongelmia

      Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell
      Kotimaiset julkkisjuorut
      265
      1875
    5. Kuinka kauan

      Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?
      Ikävä
      115
      1719
    6. Kun näen sinut

      tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain
      Ikävä
      53
      1306
    7. Ja taas kerran hallinto-oikeus että pieleen meni

      Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ
      Sysmä
      95
      1270
    8. Yhdelle miehelle

      Mä kaipaan sua niin paljon. Miksi sä oot tommonen pösilö?
      Ikävä
      70
      1222
    9. Löydänköhän koskaan

      Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲
      Ikävä
      133
      1187
    10. Purra saksii taas. Hän on mielipuuhassaan.

      Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht
      Maailman menoa
      282
      1152
    Aihe