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
253
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
- 405655
Maataloustuet pois
Jokainen maksakoon harrastuksensa itse. Eihän golfin peluutakaan maksa yhteiskunta.2244611Joko alkaa menemään tajuntaan tämä yliluonnollinen yhteys?
Varmaan pikkuhiljaa. Muista olla kiltisti ❤️424562Kohtalokas laukaus
IL 20.9.25 "Ihminen kuoli baarin edustalla Kajaanissa Poliisi ei epäile tapauksessa rikosta." "Kajaanin keskustassa on k264352Australia, Britannia ja Kanada tunnustivat Palestiinan
Aikooko Petteri Lapanen pysytellä persujen ja uskovaisten panttivankina ja jättää Suomen historian väärälle puolelle?734340Työeläkkeen saamiseksi olisi tehtävä töitä
Meillä on Suomessa iso joukko ihmisiä, joilla olisi vielä työkykyä jäljellä, mutta joilta puuttuu arjesta mielekäs tekem1603815- 963212
Joulukinkku NYT
Sian kankuista tulee vielä pula. Nyt on oikea aika hankkia joulukinkku.233075Muistattekos kun Sannan aikana suomalaisten varallisuuteen lisättiin viidennes
Köyhät voittivat eniten mutta rikkaimmat kuitenkin köyhtyi!273072Linux Mint asennus kaatuu heti alkuun
Tulee kernel panic BIOS-tekstin jälkeen. Yritän ensimmäistä kertaa asentaa Linux Minttiä vanhalle Windows 10 -läppärill102170