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
547
Vastaukset 1
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
Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei81000Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125946- 109929
- 52866
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.85792Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.42756Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle66701Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev144682- 55625
- 70566
- 95551
- 60514
- 52511
- 35487
- 22456
Humppila korvasi johtajia tekoälyllä
https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 15049448- 32430
Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....31423- 24420
Mnot, miksi sinulle on tärkeää solvata uskovia?
Onko sinulla joku katkeruus tai peräti viha heitä kohtaan? Kirjoituksesi nimittäin tihkuvat katkeruutta ja vihaa uskovi246408