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
450
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
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä1311315Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa373843Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1093009Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie1072347Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin762022Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1961751Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.299996Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta17770Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte143715- 53699