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
161
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
Persujen mukaan rasismi on huumoria
Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀1004426BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön
Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että1993641- 2022981
Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta
Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome722832Hallitus on kaadettava ja Orpon on erottava
Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main602727- 831341
- 601246
Aitolehti Capital
HehkuB on myynnissä, kovalla työllä saavutettu unelma joka sekin lässähti kuten kaikki mihin ryhtyy! Nyt Sewen asialle2381072MOT: Työmarkkinatori on olemattomien työpaikkojen hakupaikka
Työpaikkojen tietoja ei tarkisteta, ja ainakin noin noin 10% on olemattomia työpaikkoja ja sen lisäksi eri rekryfirmat t120983- 60978