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ä
      36
      5218
    2. Ripeyttä asiointiin

      Ottaa päähän yhden ja saman asiakkaan hitaus kassalla kun yhdellä kädellä nostelee ostoksia kärrystä ja välillä pitelee
      Hyrynsalmi
      34
      2334
    3. 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
      7
      1868
    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
      1810
    5. Koska me nähdään

      Seuraavan kerran ja odotanko sitä?
      Ikävä
      82
      1522
    6. Kysyin kaikilta yhteisiltä tutuilta mielipidettä siitä, että kannattaako sinun kanssa alkaa!

      Päätös oli lähestulkoon yksimielinen. Minunkin vaisto antoi vaaranmerkkejä, mutta järkytyin mitä sinusta kuulin. Aluksi
      Tunteet
      141
      1419
    7. En tunne muita

      Kohtaan tätä samaa polttavaa halua vain sinua kohtaan. Ei vaan muut sytytä
      Ikävä
      64
      1136
    8. 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
      234
      1112
    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
      1034
    10. Ollaan kuin yö ja päivä

      Monessa asiassa… molemmat ollaan kuitenkin älykkäitä ja tiedämme, ettei kannata edetä tämän pidemmälle.
      Ikävä
      70
      1018
    Aihe