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

597

    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

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


    • jos haluat koodin laita YV
      https://www.dropbox.com/scl/fi/5m5zcscjfew5kbobb8sbz/Excel-rivit-sarakkeeseen.mp4

    • 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. Anteeksi mies

      En vaan osaa kohdata sinua ja olla normaali. En tiedä mikä vaivaa. Samaan aikaan tekee mieli tulla lähelle ja kuitenkin
      Ikävä
      57
      8517
    2. Mietin aina vain

      Minä niin haluaisin nähdä sinut. Ei tuo yhden ainoan kuvan katsominen paljon helpota... Miksi sinä et voisi olla se roh
      Tunteet
      12
      3349
    3. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      26
      2490
    4. Palstan henkisesti sairaat ja lihavat

      Täällä on sairaita, työttömiä ihmisiä kirjoittelemassa joilla ei ole tarkoituksena kuin satuttaa ihmisiä. Jos eksyt pals
      Ikävä
      114
      2000
    5. Kysely lieksan miehille

      Olemme tässä pohtineet tällaista asiaa, että miten on. Tästä nyt on paljon ollut juttua julkisuudessakin aina sanomaleht
      Lieksa
      80
      1980
    6. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      351
      1663
    7. Saan kengurakkaan kotiin viikon päästä

      Mitä tapahtui? Martina hehkutti tätä stoorissaan reilu viikko sitten, mutta eipä aussimiestä Suomessa näkynyt, vaan tapa
      Kotimaiset julkkisjuorut
      241
      1412
    8. FinFamin ryhmät

      Älkää hyvät ihmiset luottako tähän tahoon. Ryhmiä on, mutta eivät ne toimi. Ihmisiä savustetaan ulos, vaikka näissä piir
      Salo
      0
      1191
    9. Olen vähän

      Hysteerinen se on totta. Etkai ymmärrä miten syvästi tunnen sinua kohtaan. Ja olet aina lähelläni. Olet osa jo jotain. I
      Ikävä
      10
      1075
    10. Osmo Peltola voitti ansaitusti Kultaisen Venlan - Kirvoitti yleisöltä mahtavan reaktion!

      JEE, onnea Osmo! Osmo Peltola voitti Vuoden esiintyjän Kultainen Venla -palkinnon. Isä-Peltsin ja Osmon luontoseikkailu
      Suomalaiset julkkikset
      66
      1020
    Aihe