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
513
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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2725089- 514087
Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii933599- 502709
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua461863- 191827
- 1001669
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘981481- 711085
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden1461063