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
- 937568
- 403622
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021846- 241060
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32943Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27911Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk53807Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt31732Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60729Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26662