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

507

Ää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. Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen

      Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.
      Maailman menoa
      656
      5390

    2. Harmi että

      Pidät niin vastenmielisenä. Olen minäkin välissä ollut ihan kamala sinulle ja ihmetellyt miten voit minusta tykätä. Se o
      Ikävä
      21
      2367

    3. Ajattele miten

      Paljon ottajia sinulla olisi
      Ikävä
      114
      1617

    4. Trump näytti slipoveri-ukolle kaapin paikan!

      Slipoveri-ukko Ukrainan presidentti Volodimir Selenskyi meni tapaamaan valkoiseen taloon Trumppia ilman kunnon tuliaisia
      Kajaani
      234
      1576

    5. Tekisitkö jotain toisin

      Kaivattusi kanssa alusta alkaen? 😍
      Ikävä
      93
      1477

    6. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      23
      1416

    7. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      68
      1175

    8. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      9
      1153

    9. Kun Zele jenkeissä kävi

      Enää ei Zele saanutkaan miljardeja ilmaista rahaa niin helposti. Läksyttivät oikein kunnolla pientä miestä ja joutui poi
      Maailman menoa
      314
      1127

    10. Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa

      Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin
      NATO
      306
      1058
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt