Sarakkeet yhdeksi sarakkeeksi

Excelisti

Ongelmana siis on se että aineiston muokkauksessa pelkkä copy-paste on liian hidasta. Kuinka saan usean kymmenen sarakkeen tiedot yhteen sarakkeeseen siten, että jokaisen liitettävän sarakkeen ensimmäinen solu tulisi edellisenä liitetyn sarakkeen jälkeen? Ts. tavallinen peräkkäinen copy-paste ilman aikaa vievää manuaalista kopioimista

2

459

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • muuan mies

      Eikö tavallinen & toimi?
      K1=A1&B1&C1&D1&E1&f1&G1&H1&I1&J1
      Ja tarvittaessa väleja jokaiseen väliin myös &" "

      • ei tietoa onko sarakkeet peräkkäin vaiko siellä täällä ja mihin kopioidaan
        mutta tällä alkuun...
        muuttele kohdesarake sopivaksi, nyt A sarake ja alkaa A1.
        Toimii siten, että maalaat kopioitavan alueen ja kopioi tiedot alkaen A1

        moduuliin...

        Sub YhteenSarakkeeseen()
        Dim Alue As Range
        Dim Sarake As Integer
        On Error GoTo virhe
        Set Alue = Application.Intersect(Selection, ActiveSheet.UsedRange)
        Range("A:A") = ""
        For Sarake = 1 To Alue.Columns.Count
        If Sarake = 1 Then
        Alue.Range(Cells(1, Sarake), Cells(Alue.Rows.Count, Sarake)).Copy Range("A1")
        Else
        Alue.Range(Cells(1, Sarake), Cells(Alue.Rows.Count, Sarake)).Copy Range("A65536").End(xlUp).Offset(1, 0)
        End If
        Next Sarake
        poistu:
        Exit Sub
        virhe:
        MsgBox "et valinnut sarakkeita!"
        GoTo poistu
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      126
      1700
    2. 105
      1195
    3. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1071
    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      979
    5. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      128
      877
    6. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      51
      870
    7. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      838
    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      70
      745
    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      719
    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      709
    Aihe