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
408
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
- 1582001
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311774Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021547- 721250
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171233- 681191
- 220988
- 70815
- 45750
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723