Solun siirto/kopiointi makro

kiirus olisi

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.

1

462

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 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 saa
      Sinkut
      136
      3797

    2. Ei ole kyllä mennyt

      Kovin hyvin kun alussa pieni sekoaminen hänestä 😏
      Ikävä
      12
      2576

    3. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      37
      1995

    4. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      21
      1741

    5. Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?

      Päiviä? Viikkoja? Kuukausia? Vuosia?
      Ikävä
      31
      1536

    6. Olet muutenkin tyhmä

      Ja käyttäydyt epäasiallisesti siinä työssäsi.
      Ikävä
      125
      1511

    7. 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 kuul
      Ikävä
      10
      1321

    8. Se sinun kaipauksen kohde

      Ei todellakaan käy täällä höppänä mies.
      Ikävä
      14
      1266

    9. Se oli siinä sitten

      Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo
      NATO
      488
      1265

    10. Mikä sinua ja kaivattuasi

      Yhdistää?
      Ikävä
      82
      1252
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt