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
212
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
Nurmossa kuoli 2 Lasta..
Autokolarissa. Näin kertovat iltapäivälehdet juuri nyt. 22.11. Ja aina ennen Joulua näitä tulee. . .1458580Joel Harkimo seuraa Martina Aitolehden jalanjälkiä!
Oho, aikamoinen yllätys, että Joel Jolle Harkimo on lähtenyt Iholla-ohjelmaan. Tässähän hän seuraa mm. Martina Aitolehde472449Kaksi lasta kuoli kolarissa Seinäjoella. Tutkitaan rikoksena
Henkilöautossa matkustaneet kaksi lasta ovat kuolleet kolarissa Seinäjoella. Kolmas lapsi on vakasti loukkaantunut ja272251- 371995
- 951768
Miksi pankkitunnuksilla kaikkialle
Miksi rahaliikenteen palveluiden tunnukset vaaditaan miltei kaikkeen yleiseen asiointiin Suomessa? Kenen etu on se, että1811737Sinä saat minut kuohuksiin
Pitäisiköhän meidän naida? Mielestäni pitäisi . Tämä värinä ja jännite meidän välillä alkaa olla sietämätöntä. Haluai221390Tunnekylmä olet
En ole tyytyväinen käytökseesi et osannut kommunikoida. Se on huono piirre ihmisessä että ei osaa katua aiheuttamaansa p1091147Taisit sä sit kuiteski
Vihjata hieman ettei se kaikki ollutkaan totta ❤️ mutta silti sanoit kyllä vielä uudelleen sen myöhemmin 😔 ei tässä oik61033- 531015