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
Sarakkeet yhdeksi sarakkeeksi
2
445
Vastaukset
- 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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest1217166Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden4955303Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1483266Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed2152621Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t412324Pituuden mittaaminen
Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m431272En tiedä enää
Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su771242Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta
Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä681188Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu111159- 1111133