Taulukon kääntö

Aivot nyrjähti

Miten käännetään taulukon tiedot riveiltä sarakkeisiin?

Esim.
Sarake A | Sarake B
otsikko 1| otsikko 2
arvo 1 | arvo 2
arvo 3 | arvo 4

että lopputulos olisi uudessa välilehdessä seuraavanlainen:

Sarake A Sarake B
otsikko 1 arvo 1
otsikko 2 arvo 2

otsikko 1 arvo 3
otsikko 2 arvo 4

Kopiointi saa jatkua niin pitkään, kun tietoja riittää ja tulostusta varten pitäisi vielä uuteen taulukkoon määritellä sivunvaihdot.

1

486

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin

      Sub Kopioi()
      On Error Resume Next
      Dim vika As Integer
      Dim x As Integer
      Sheets("Taul1").Activate
      Sheets("Taul2").Range("A:B") = ""
      Range("Taul2!A2") = "Otsikko1"
      vika = Range("A65536").End(xlUp).Row
      For Each solu In Range("A2:B" & vika)
      solu.Copy Destination:=Range("Taul2!B65536").End(xlUp).Offset(1, 0)
      x = x 1
      If x Mod 2 = 0 Then
      Range("Taul2!A65536").End(xlUp).Offset(1, 0) = "Otsikko1"
      Else
      Range("Taul2!A65536").End(xlUp).Offset(1, 0) = "Otsikko2"
      End If
      Next
      Range("Taul2!A65536").End(xlUp) = ""
      Rows("1:1").Delete
      'vika = Range("Taul2!A65536").End(xlUp).Row
      'ActiveSheet.PageSetup.PrintArea = "$A$1:$B$" & vika
      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."

      Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww
      Suomalaiset julkkikset
      61
      4631

    2. Henkirikos Alakylässä

      Nainen löydetty elottomana, mies otettu kiinni. Mitä on tapahtunut?
      Seinäjoki
      51
      3092

    3. Suodatinpussin kastelemalla saa parempaa kahvia

      Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap
      Maailman menoa
      140
      2356

    4. Tidätkö nainen

      että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o
      Ikävä
      105
      1966

    5. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      77
      1553

    6. Onkohan sinulla kaikki hyvin?

      Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...
      Ikävä
      38
      1197

    7. Huikeeta, mahtavaa, ihan mielettömän upeeta

      Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M
      Kotimaiset julkkisjuorut
      193
      1125

    8. Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"

      Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-
      Suomalaiset julkkikset
      16
      1092

    9. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      87
      1088

    10. Viimeinen reissu tälle kesälle

      Pian se syksy on. Hyvää huomenta ja aurinkoista päivää. ☕🌞🍁🌻🐺❤️
      Ikävä
      173
      1086
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt