Moro,
Ongelmia, kun ei osaa...
Eli haluaisin
123456 22
123456 33
123456 44
Tuollaisesta muodosta muotoon
123456 22 33 44
Ja vielä siten, että kun (esim. A1) syöttää 123456 se rustaa noi 22, 33 ja 44 tiedot seuraaviin sarakkeisiin. Saan PHAKU- hommelilla tuon ensimmäisen 22, mutta ne loput...
Muutama rivi ei aiheuta hikeä mutta jos niitä on joitakin tuhansia, ei viittis käsin siirrellä.
Ongelmia, kun ei osaa...
Eli haluaisin
123456 22
123456 33
123456 44
Tuollaisesta muodosta muotoon
123456 22 33 44
Ja vielä siten, että kun (esim. A1) syöttää 123456 se rustaa noi 22, 33 ja 44 tiedot seuraaviin sarakkeisiin. Saan PHAKU- hommelilla tuon ensimmäisen 22, mutta ne loput...
Muutama rivi ei aiheuta hikeä mutta jos niitä on joitakin tuhansia, ei viittis käsin siirrellä.
Vastaukset 4
Vanhimmat
ymmärsinkö oikein, mutta jos sinulla on nuo luvut
123456 22
123456 33
123456 44
vaikka sheet3:lla,ja haluat tiedot sheet2:lle niin koeta näitä
A1:n kirjoitat esim.123456
B1=OFFSET(Sheet3!$A$1;MATCH(A1;Sheet3!$A$1:$A$50;0)-1;1)
C1=OFFSET(Sheet3!$A$1;MATCH(A1;Sheet3!$A$1:$A$50;0);1)
D1=OFFSET(Sheet3!$A$1;MATCH(A1;Sheet3!$A$1:$A$50;0) 1;1)
Ymmärsinköhän oikein tuon ens. osion
jos A1=123456 22
jos A2=123456 33
jos A3=123456 44
A4=KETJUTA(A1;" ";POIMI.TEKSTI(A2;ETSI(" ";A2) 1;2);" ";POIMI.TEKSTI(A3;ETSI(" ";A3) 1;2))
Tulos A4-sarakkeeseen:123456 22 33 44
Oiskohan tästä apua
jos syötetään C1=123456
D1=POIMI.TEKSTI($A$4;ETSI(C1;$A$4) PITUUS(C1) 1;2)
E1=POIMI.TEKSTI($A$4;ETSI(D1;$A$4) PITUUS(D1) 1;2)
F1=POIMI.TEKSTI($A$4;ETSI(E1;$A$4) PITUUS(E1) 1;2)
Näytti toimivan ainakin tällaisella määrällä
Makro tekee uuden taulukon H-sarakkeesta alkaen eli se pitää ajaa itse.
Range("H1:Q1000").Select
Selection.ClearContents
r = 1
For t = 1 To 1000
If Cells(t, 1) = "" Then Exit Sub
e = Application.Match(Cells(t, 1), Range("H:H"), 0)
u = 9
If IsError(e) Then
Cells(r, u - 1) = Cells(t, 1)
e = r
r = r 1
Else
Do While Cells(e, u) ""
u = u 1
Loop
End If
Cells(e, u) = Cells(t, 2)
Next
Kiitoksia guruille ja etenkin markon luojalle--toimii.
Kiitos!