Hei,
minulla on rekisteri jossa on noin 2000 riviä ja ovat muodosssa:
A B C
xxx Tieto 1 Tieto 3
Tieto 2
Tieto 2 pitäsi saada siirrettyä kohtaan xxx, kyllähän sen ctrl x - ctrl v voi tehdä mutta ei viitsisi käydä kaikkia rivijä läpi. Onko nopeampaa keinoa? sitten tyhjät rivit pitäisi saada siivottua... kiitän etukäteen jo.
Solun siirto/kopiointi makro
kiirus olisi
1
448
Vastaukset
moduuliin...
nyt tiedot alkaen riviltä 1, muuta sopivaksi
Sub SiirräJaPoista()
Dim vika As Integer
On Error Resume Next
vika = Range("A65536").End(xlUp).Row
Range("A2:A" & vika).Cut Destination:=Range("A1:A" & vika - 1)
Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1302425En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1091454- 1341239
Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3411189Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041117Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991025On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s46729Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252719Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33710- 50684