Miten menisi VBA, kun pitäisi saada taulukon (Table) rivit transponoitua sarakkeiksi omiin taulukoihinsa (sheet) siten, että alkuperäisen taulukon sarakeotsikot tulisivat mukaan kuhunkin taulukkoon?
Rivit sarakkeiksi omiin taulukoihin
Anonyymi
6
127
Vastaukset
- Anonyymi
Kysymys voisi varmasti olla selkeämpikin, mutta ehkä myös sekavampikin. Eikö riitä että:
1) Valitset taulukon alueen
2) Edit » Copy
3) Klikkaat jonnekin jonne haluat muunnetun taulukon kopion
4) Edit » Paste Special, jossa Transpose ruksattuna
ole riittävä?- Anonyymi
Tarve olisi siis jakaa jokainen taulukon rivi omaan taulukkoonsa (sheetiin) transponoituna siten, että alkuperäinen sarakeotsikointi seuraa mukana jokaiseen taulukkoon. Alkuperäisessä taulukossa (Table) sarakkeita on toista sataa, rivejä ehkä kymmenkunta. Tällöin muodostuisi kymmenkunta taulukkoa (sheetiä), joissa kussakin kaksi saraketta, joista ensimmäinen sisältäisi otsikot, ja toinen rivin tiedot.
Sub RtC()
Dim lrow As Range
Dim x As Integer, roC As Integer
Dim HTval As Variant
Dim tbl As ListObject: Set tbl = ActiveSheet.ListObjects(ActiveSheet.ListObjects(1).Name)
HTval = Application.Transpose(tbl.HeaderRowRange.Value) 'ok
x = tbl.DataBodyRange.Columns.Count 'ok
roC = 1
For Each lrow In tbl.DataBodyRange.Rows
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "RS" & roC
Worksheets("RS" & roC).Range("A2").Resize(x, 1).Value = HTval
Worksheets("RS" & roC).Range("B2").Resize(x, 1).Value = Application.Transpose(lrow.Value)
roC = roC 1
Next
End Sub- Anonyymi
KIITOS jokuvaan76. Tämä oli juuri sitä mitä hain. Helpottaa jatkotyöskentelyä.
- Anonyymi
Yksi työkirja ei voi sisältää kuin 64 laskentataulukkoa.
- Anonyymi
Hyvä huomautus, kiitos.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kadonnut poika hukkunut lietteeseen mitä kalajoella nyt on?
Jätelautta ajautunut merelle ja lapsi uponnut jätelautan alle?1024639- 272415
Kalajoen hukkuneet pojat olivat tummaihoisia
Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell1102312- 2002199
PoIiisi jahtasi mopopojan hengiltä
Toivottavasti on s i n i v u o k k o nyt ylpeä itsestään, kun ajatti teinin päin lyhtypylvästä. https://w4261997- 1751545
Emme voi elää velaksi, sanoi Riikka
Valtionvelan odotetaan nousevan 86,3 prosenttiin bruttokansantuotteesta vielä kuluvan vuoden aikana. https://www.iltale1001279Et halua kohdata niitä tunteita ja asioita, joita minä herätän sisälläsi
Vastustelet. Yrität esittää, että kaikki on hyvin. Leikit perhettä.331087Miksi epäilit kaivattusi kiinnostuneen
Juuri sinusta? Mihin piirteisiin hän aikanaan saattoi sinussa ihastua? Olivatko ne yhtään samoja asioita joihin itse iha72986Minkä asian haluaisit muuttaa kaivatussasi?
Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?79870