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
75
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
Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik185473MTV: Kirkossa saarnan pitänyt Jyrki 69 koki yllätyksen - Paljastaa: "Se mikä oli hyvin erikoista..."
Jyrki Linnankivi alias Jyrki 69 on rokkari ja kirkonmies. Teologiaa opiskeleva Linnankivi piti elämänsä ensimmäisen saar1192846- 142748
Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun6052088Kirjoita yhdellä sanalla
Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin1401897Olet hyvin erilainen
Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja701382Yksi syy nainen miksi sinusta pidän
on se, että tykkään luomusta. Olet luonnollinen, ihana ja kaunis. Ja luonne, no, en ole tavannut vielä sellaista, joka s421355Paljastavat kuvat Selviytyjät Suomi kulisseista - 1 päivä vs 36 päivää viidakossa - Katso tästä!
Ohhoh! Yli kuukausi viidakossa voi muuttaa ulkonäköä perusarkeen aika rajusti. Kuka mielestäsi muuttui eniten: Mia Mill31148Veda uskonto vs. muut uskonnot
Mitenkähän tuo Veda(Krisha)uskonto loppujen lopuksi eroaa muista niin sanotuista ilmoitus uskonnoista? Siinäkin vedotaan4041096Hyvää Joulua mies!
Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o641077