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
516
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
Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?3221822Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh751284Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok831277- 1341157
- 79947
- 85881
- 48843
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro118804- 48780
Sitä saattaa vähän hölmöillä
rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.60736