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
511
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
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!1302333Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?1871109Tykkäätkö halaamisesta?
Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo101988Hinduilu on suurta eksytystä
tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa387914Malmin tapaus on järkyttävä
Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi291827- 53821
- 63814
- 46799
- 84773
- 51723