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.
Taulukon kääntö
Aivot nyrjähti
1
544
Vastaukset
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ä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt505267Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.813064Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?3091634Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh751234Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok801167Jenkkilahkojen kastekaava
Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan1391124- 1321102
Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin1611095- 1711074
- 49944