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

474

Ää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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      220
      4239

    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      69
      2735

    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      393
      2421

    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2353

    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      42
      1629

    6. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      541
      1371

    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      96
      1324

    8. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      57
      1320

    9. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      76
      1301

    10. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      125
      1186
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt