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
      31
      3040

    2. Mietin että

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

    3. Kaipaatko sinä

      Yhtään meidän katseita
      Ikävä
      127
      1474

    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
      38
      1316

    5. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      90
      1247

    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
      26
      1109

    7. Kirjallinen varoitus

      On annettu eräälle henkilölle. hyssytellään kuitenkin asiasta
      Äänekoski
      54
      1018

    8. 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
      971

    9. MESTARI SIVALTAA JÄLLEEN

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

    10. 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
      950
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt