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
Taulussa kentät ovat riveillä, tietue on erotettu erikoismerkillä (ESIM #).
Kuinka saan tietueittain tiedot poimittua ja transponoitua tietueet riveittäin?
kiitos
Vastaukset 4
Vanhimmat
Onko varsinaiset tiedot sarakkeissa? Mihin tarvitaan "erikoismerkkiä"?
Tiedot ovat sarakkeessa A alekkain, erikoismerkki on tietue-erotin
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
Riittäisikö Teksti sarakkeisiin - erotusmerkkinä tuo # ja sitten alueen transponointi ?