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
Koodia - tietueet riveillä
Excel4ever
4
276
Vastaukset
- 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
Silmienvääntelijä-persut pääsivät Japanissa sarjakuvaan
Torille! https://www.hs.fi/kulttuuri/art-2000011943173.html1764967Nato kaatamassa Petterin haaveileman Tunnin junan?
Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,184346Donald Trump pääsi samalle listalle Sanna Marinin kanssa
Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/593769993087Älkää vaan sairastuko syöpään Suomessa
Tilaston mukaan Suomi, Slovakia ja Latvia lääkitsee aivan pohjamudissa syöpää. Sairastunutta hoidetaan edelleen vanhana2482910Kyllä, maata ei halua puolustaa nimenomaan punavihreän puolen edustajat
"Esimerkiksi maanpuolustushenki on keskimääräistä alempana naisten, arvoliberaalien, heikossa taloustilanteessa olevien1432852- 522491
- 271919
- 341723
- 211711
- 631677