Miten saisi pitkän numerosarjan (yli.50- numeroa) jakautumaan saman rivin usealle (n.5:lle) sarakkeelle?
Esimerkki numerosarjasta alla.
233363001049810300032710000526062903851201006040300207
Jako pitäisi olla määriteltävissä halutun pituisiksi.
Esimerkki numerosarjasta alla.
233363001049810300032710000526062903851201006040300207
Jako pitäisi olla määriteltävissä halutun pituisiksi.
Vastaukset 6
Vanhimmat
Numerosarja solussa A1
laita soluun luku moneenko osaan haluat jakaa.
Soluun B1 kaava
=VASEN(A1;PYÖRISTÄ.KERR.YLÖS(PITUUS(A1)/A2;1))
soluun C1 matriisikaava
{=POIMI.TEKSTI($A$1;SUMMA(PITUUS($B$1:B1)) 1;PYÖRISTÄ.KERR.YLÖS(PITUUS($A$1)/$A$2;1))}
ja vedät tämän kaavan niinpitkälle oikealle kuin on tarvetta.
laita soluun A2 moneenko osaan jaetaan.
En saanut toimimaan.
Tuo numerosarja on niin pitkä, että ilmeisesti sitä ei voi edes syöttää soluun muuten kuin tekstinä.
Kerron esimerkin, miten numerot (jotka voivat olla teksti-muodosssa), pitäisi jaotella.
1. Syötetään soluun A1 seuraava numerosarja... 233363001049810300032710000526062903851201006040300207
2.Excelin pitäisi jakaa (vaikka tekstimuotoiset, koska niillä ei tarvitse laskea) numerot saman rivin eri soluihin seuraavasti.
B1=2................................(eli 1-numero)
C1=33363001049810...........(eli 14-numeroa)
D1=30003271.....................(eli 8-numeroa)
E1=00005260629038512010..(eli 20-numeroa)
F1=060403........................(eli 6-numeroa)
G1=0020...........................(eli 4-numeroa)
F1=7................................(eli 1-numero)
moduuliin
Sub JaaLuku()
Dim i As Integer
Dim a As Integer
a = 1
Range("B1:F1") = ""
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 1)(i)
Cells(1, 2 i) = Mid(Range("A1"), a, j)
a = a j
Next
End Sub
moduuliin
Sub JaaLuku()
Dim i As Integer
Dim a As Integer
a = 1
Range("B1:H1").NumberFormat = "@"
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 1)(i)
Cells(1, 2 i) = Mid(Range("A1"), a, j)
a = a j
Next
End Sub
Tuo oli huippuhieno homma! En ymmärrä moduuleista mitään, mutta taisteluvoitto tuli.
Kiitos hienosta työstäsi!
Täytyy vielä pyrkiä hienosäätämään tuota systeemiä tarkoitukseeni sopivaksi.
Todennäköisesti kaipaan vielä apuasi, mutta tämä oli jo suuri askel eteenpäin!
Kiitos!