Excelin rivien muuttaminen sarakkeiksi

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?

8

708

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      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.

      • Anonyymi

        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.


      • Anonyymi

        😋😋😋😍😍😍😍😋😋😋

        😋 ­­N­y­­m­­f­­­o­­m­­a­­a­n­­i -> https://l24.im/ecC7ux#kissagirl21

        🔞❤️❤️❤️❤️❤️🔞💋💋💋💋💋🔞


      • Anonyymi

        🍒🍒🍒🍒🍒🍒🍒🍒🍒🍒

        😍 ­N­­­y­­m­­­f­­­o­m­a­­­a­­n­­­i -> https://ye.pe/finngirl21#18187520C

        🔞❤️💋❤️💋❤️🔞❤️💋❤️💋❤️🔞


    • Anonyymi

      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

    • Anonyymi

      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)

      • Anonyymi

        Ja tämä kaava tekee sen, mitä kysyttiin:

        =OFFSET($A$1; ROW()-1 +(COLUMN()-3)*5; 0)


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Joskus mietin

      miten pienestä se olisi ollut kiinni, että et koskaan olisi tullut käymään elämässäni. Jos jokin asia olisi mennyt toisi
      Ikävä
      34
      7509
    2. Ryöstö hyrynsalmella!

      Ketkä ryösti kultasepänliikkeen hyryllä!? 😮 https://yle.fi/a/74-20159313
      Hyrynsalmi
      69
      3973
    3. Miten reagoisit

      Jos ikäväsi kohde ottaisi yhteyttä?
      Ikävä
      88
      3909
    4. Mitä haluaisit sanoa

      Nyt kaivatullesi?
      Ikävä
      290
      3507
    5. Olisiko kaivattusi

      Sinulle uskollinen? Olisitko itse hänelle?
      Ikävä
      61
      2817
    6. Ihana nainen

      Suukotellaanko illalla?☺️ 🧔🏻🫶
      Ikävä
      54
      2814
    7. Sukuvikaako ?

      Jälleen löytyi vastuulliseen liikennekäyttäytymiseen kasvatettu iisalmelainen nuori mies: Nuori mies kuollut liikenne
      Iisalmi
      39
      2715
    8. Ootko koskaan miettinyt että

      miksi kaivatullasi ei ole puolisoa?
      Ikävä
      153
      2520
    9. Huomenta ihana

      Mussu ❤️.
      Ikävä
      32
      2114
    10. Avustettu itsemurha herättää vahvoja tunteita - Laillista Sveitsissä, ei Suomessa

      Hilkka Niemi sairastaa harvinaista PLS-sairautta. Hilkan on elettävä loppuelämänsä parantumattoman sairauden kanssa, jok
      Maailman menoa
      145
      2105
    Aihe