Seuraava ongelma: pitkä lukusarja allekkaisia lukuja. Niistä pitäisi poimia aina 5 lukua ja sitten laittaa ne 5 lukua sarakkeisiin. Eli aina 5 + 5 + 5...lukua pitäisi poimia siitä allekkain olevasta lukujonosta ja viedä aina ne 5 lukua sarakkeisiin, jolloin tulisi ne 5 lukua aina allekkain. Pahus kun ei tänne voi laittaa mitään kuvaa tms.
Millä kaavalla?
Millä kaavalla?
Vastaukset 7
Vanhimmat
Transpose muistaakseni. Pitää sitten maalata yhtä monta solua, ja olikohan painettava ctrl+enter. Voin kirjoittaa täyttä paskaakin, koska en ole moneen vuoteen käyttänyt.
Libre calcissa se on shift+enter.
Eli jos luvut on alekkain a-sarakkeessa, niin 5 kpl lukuja b,c,d,e,f -sarakkeisiin saa maalaamalla solut ja laittamalla kaava =transpose(a1:a5) ja sitten painamalla shift + enter.
Tuo siis järjestää solujen a1,a2,a3,a4 ja a5 luvut soluihin b1,c1,d1,e1 ja f1 (jos transpose-funktio on kirjoitettu ykkösriville).
Kopioimalla b1,c1,d1,e1 ja,f1 solut soluihin b6,c6,d6,e6 ja f6 tulee niihin soluihin arvot soluista a6,a7,a8,a9 ja a10.
Kun nyt maalaa solualueen b1:f10, niin kahvasta alas vetämällä saa sitten aina viiden rivein välin seuraavat a-sarakkeen 5 arvoa b-f-sarakkeisiin.
🍒🍒🍒🍒🍒🍒🍒🍒🍒🍒
😍 Nymfomaani -> https://ye.pe/finngirl21#18187520C
🔞❤️💋❤️💋❤️🔞❤️💋❤️💋❤️🔞
jos haluat koodin laita YV
https://www.dropbox.com/scl/fi/5m5zcscjfew5kbobb8sbz/Excel-rivit-sarakkeeseen.mp4
Kokeile, pitäisi toimia.
Sub Macro1()
'
' Macro1 Macro
'
Dim r_c, k, n As Integer
'Calculate number of rows in range
r_c = Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
n = r_c / 5
i = 0
k = 0
For i = 0 To r_c Step 5
k = k + 1
ActiveSheet.Range("A1:A5").Offset(i, 0).Select
Selection.Copy
ActiveSheet.Range("A1").Offset(0, k).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub
Seuraava kaava sarakkeissa C–G kopioi luvut viiden jaksoissa sarakkeesta A. Eli, jos A-sarakkeessa on luvut 1:stä eteen päin, C–G -sarakkeisiin tulee
1 2 3 4 5
6 7 8 9 10
jne.
=OFFSET($A$1; MOD((COLUMN()-3);5)+(ROW()-1)*5; 0)
Ja tämä kaava tekee sen, mitä kysyttiin:
=OFFSET($A$1; ROW()-1 +(COLUMN()-3)*5; 0)