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

261

Äänestä

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Yritykset verolle ja yritystuet 10 mrd. eur/v pois

      Kiristämistapauksissa yrityksille sanotaan hei hei. Suomi ei tarvitse yhteiskunnan rahoilla "yrittämistä". Yhteiskunta v
      Maailman menoa
      123
      2384

    2. Sannalta jälleen fiksu lausunto johtamisesta

      "I used to think the best argument would win – but real leadership means listening, understanding where people come from
      Maailman menoa
      41
      1965

    3. Riikka se runnoo työttömyyttä lisää

      Menkää töihin! "15–74-vuotiaiden työttömyysasteen trendiluku oli lokakuussa 10,3 prosenttia. Työttömiä oli yhteensä 276
      Maailman menoa
      52
      1913

    4. Sanna Antikainen (ps) : Vornasen pyssy suututti demarit

      https://www.suomenuutiset.fi/sanna-antikaisen-kolumni-vornasen-pyssy-suututti-demarit-mutta-kuka-puhuu-totta/ Vornasen
      Maailman menoa
      30
      1907

    5. Mikä on sinun ja kaivattusi ikä

      💕💕💕💕
      Ikävä
      102
      1897

    6. Hallinto-oikeus totesi Sysmän kunnanjohtajan potkut laittomiksi (YLE Lahti 24.11.2025)

      Että näin sitten: Hallinto-oikeus totesi Sysmän kunnanjohtajan potkut laittomiksi – valtuuston päätös nurin ja 50 000 la
      Sysmä
      58
      1199

    7. Onko sulla jotain

      Suunnitelmia?
      Ikävä
      117
      1095

    8. Poistettuun aloitukseen

      Ei se mulle ollut varmastikaan. En usko vaik sille tuntuukin että oisit voinut olla eräs. Mut niin mäkin pelkään. Ei
      Suhteet
      20
      953

    9. Vaikeneminen

      Tylsää kun nainen meni kuoreen 🫤
      Ikävä
      54
      900

    10. No miten meni?

      Onko voittaja olo? Tunnetko onnistumisen riemua? Vastasiko lopputulos odotuksia? Kauaksi ajettu 😘
      Ikävä
      110
      857
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt