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

637

    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. En voi jutella kanssasi

      tietenkään, mutta täällä voin sanoa sinulle, että se sinun hiljaisuutesi ja herkkyytesi eivät ole heikkoutta. Ne ovat ih
      Tunteet
      49
      6415
    2. Trump ja Vance murskasivat ja nolasivat Zelenskyn tiedotusvälineiden edessä Valkoisessa talossa.

      Jopa oli uskomaton tilaisuus Valkoisessa talossa. Zelensky jäi täydelliseksi lehdellä soittelijaksi suhteessa Trumpiin j
      Maailman menoa
      655
      2709
    3. Kokoomus haluaa hoitaa flussat yksityisellä, jotta säästettäisiin rahaa ja aikaa

      Mies hakeutui Terveystalo Kamppiin flunssaoireiden takia helmikuisena sunnuntai-iltana. Diagnoosiksi kirjattiin influens
      Maailman menoa
      83
      1229
    4. Koska olet rakastellut

      Kaivattusi kanssa viimeksi?
      Ikävä
      84
      1155
    5. Mikä on kaivattusi ärsyttävin piirre?

      Mun kaivattu on erittäin vastahakoinen puhumaan itsestä. Kääntää puheenaiheen aina muuhun kun hänestä tulee puhetta.
      Ikävä
      85
      1144
    6. Anteeksi Pekka -vedätys

      Apuna Ry:n somessa levinnyt Anteeksi Pakka -kampanja saa aina vaan kummallisempia piirteitä. ”Mä pyydän anteeksi. Mä
      Maailman menoa
      60
      1098
    7. Rakkaus ei iloitse vääryydestä vaan iloitsee yhdessä TOTUUDEN kanssa.

      Tajuatteko, että jotkut ihmiset pitävät siitä, kun toiset kaatuvat? He nauttivat siitä, kun toiset mokaavat tai käyttävä
      Idän uskonnot
      281
      1083
    8. Miten saisin

      Sinut omakseni?
      Ikävä
      89
      1080
    9. Kumpi tästä

      Teidän tilanteesta teki vaikeaa? Sivusta
      Ikävä
      70
      971
    10. Kaikkia ei voi miellyttää

      Eikä ole tarviskaan. Hyvää huomenta ja mukavaa perjantaita. 😊❄️⚜️✌🏼❤️
      Ikävä
      228
      864
    Aihe