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

737

    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. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      87
      1833
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      145
      1298
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      62
      1120
    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      64
      988
    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      82
      921
    6. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      85
      850
    7. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      836
    8. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      127
      833
    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      47
      827
    10. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      810
    Aihe