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

517

Ää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. Kuka pistetty kylmäksi

      Ketähän joutunu puukkohipan uhriksi? Tietääkö kukkaan?
      Kajaani
      37
      3361

    2. Mietin että

      Onko tarinallamme vielä luvussa tilaa kohtaamiselle vai jääkö se tähän.
      Ikävä
      97
      1684

    3. Kaipaatko sinä

      Yhtään meidän katseita
      Ikävä
      136
      1585

    4. Mira Luoti ja Julkkisselviytyjät 2017 - Ketä kuumottaa juuri nyt?

      HS: Tässä ohjelmassa Mira Luoti kertoi kokeneensa seksuaalista väkivaltaa "PMMP-yhtyeen Mira Luoti kertoo Ylen uudessa
      Kotimaiset julkkisjuorut
      45
      1470

    5. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      91
      1290

    6. Törkeä eläinsuojelurikos Sonkajärvellä

      Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo
      Sonkajärvi
      29
      1192

    7. Kirjallinen varoitus

      On annettu eräälle henkilölle. hyssytellään kuitenkin asiasta
      Äänekoski
      57
      1085

    8. MESTARI SIVALTAA JÄLLEEN

      https://www.is.fi/politiikka/art-2000011436243.html Suomen ainoa Mestari lausuu tosiasiat Sannasta , Tuomiojasta ja hil
      Kajaani
      243
      1034

    9. Jotkut ihmiset pelkäävät syöpää sairastavaa

      On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall
      Sinkut
      125
      990

    10. Julkisuuden henkilön päiväin päätös

      Sitä vaan, että kyllä nyt kaikki tietävät kuka oli Eemeli Peltola (kansanedustaja, joka päätti päivänsä eduskuntatalossa
      Sinkut
      270
      981
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt