Rivit sarakkeiksi omiin taulukoihin

Anonyymi

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?

6

119

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      101
      2160
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      298
      1960
    3. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      104
      1806
    4. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      344
      1771
    5. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      209
      1637
    6. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      32
      1381
    7. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      27
      1159
    8. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1143
    9. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      69
      1111
    10. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      51
      1067
    Aihe