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.
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.
Vastaukset 1
Vanhimmat
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