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
233
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225214- 254388
- 282521
- 342264
- 372008
- 151928
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191607- 121531
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211267Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101184