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

459

Ää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. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      39
      12840

    2. V*ttuu että mä haluan sua

      Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!
      Ikävä
      91
      4441

    3. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      114
      4124

    4. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      51
      3688

    5. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      53
      3381

    6. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      120
      3367

    7. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      49
      2272

    8. Koska olet viimeksi nähnyt ikävän kohteesi?

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      43
      2241

    9. Keskusta hajoaa Palojärvi lähtee

      Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul
      Kemijärvi
      31
      2044

    10. On sillä rääpyä

      Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva
      Ähtäri
      14
      1718
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt