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

524

Ää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. Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.

      Tämä asia ihmetyttää suuresti.
      Maailman menoa
      109
      3596

    2. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      76
      3148

    3. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      83
      2598

    4. Suomalainen lähti ilman takkia sotaan

      Malli oli "kajander", johon kuului pelkästään kokardi, ja sotilaan itse metsästä katkoma puukeppi ryssien huitomiseen.
      Maailman menoa
      6
      2394

    5. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      217
      2252

    6. Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!

      ”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a
      Maailman menoa
      30
      2141

    7. Mies älä

      Odota enää vaan toimi. Pieni vinkkivitonen 🫰💥
      Ikävä
      42
      919

    8. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      95
      918

    9. Mä tiedän

      Että sä tiedät, että mä tiedän, että sä tiedät. Me molemmat tiedetään. Onko näin?
      Ikävä
      52
      806

    10. Haapaveille jotain uutta!

      Huoltoasema Haapavein keskustaan tulossa. Semmoista Jeppasissa jaappasevat.
      Haapavesi
      16
      760
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt