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
110
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
Epäily: Oppilas puukotti kolmea Pirkkalan koululla
Tämänhetkisen tiedon mukaan ainakin kolme oppilasta on loukkaantunut puukotuksessa Pirkkalan Vähäjärven koululla. Myös e1774562Jos olisit täällä
Tosin en tiiä miks oisit. (Ja hävettää muutenkin kun ei muka muulla tavoin osaa kertoa tätäkään) Jos jollain pienellä372514- 1562182
Kesän odotuksia hyrynsalmella
Kyllä kesällä hyrynsalmellakin on mahdollisuus osallistua kylän menoon monella tavalla . On kaunislehdon talomuseolla161709- 811338
Voi Rakas siellä
Olet ollut mun ajatuksissa taas koko päivän. Olet ihmeellinen kertakaikkiaan ja arvostan sinua niin paljon❤️Minulla ei o241271Ohhoh! KAJ laukoi suorat sanat somessa - V-sana mainittu!
Ohhoh! Mitäs mieltä olet tästä huumoriryhmä KAJ:sta? Bara bada bastu on kyllä aikamoinen korvamato... Lue lisää: https321183Pirkkalan koulussa puukotus, oppilas puukotti kolmea
Ilmeisesti tyttöjä ollut kohteena.1451160Erika selvisi hienosti ennakkosuosikin paineista
Hienostihan se meni. Erika jätettiin yksin, eikä häntä tuettu, oli euroviisukiusattu, silti suoriutui ensiluokkaisesti.103945Pirre vaatii nyt karhuja ammuttavaksi
Ylellä taas hauskaa lieksa uutista. Karhujen kannanhoidollinen metsästys on Lieksan kaupungin mielestä välttämätöntä.117877