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
462
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa1363667- 122396
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos371955Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly211721Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?301493- 1241448
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul101311- 141246
Se oli siinä sitten
Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo4781221- 761135