Toistuva kopionti VBA:n avulla

Neo_306

Osaisiko joku neuvoa minkälainen VBA koodaus täytyisi tehdä Exceliin (tai olisiko jotain funktiota olemassa):
Datassa on A-sarakkeessa "ilmoitusnumero", 8 numeroa. Kuinka saisin tämän kopioitua alemmille riveille, seuraavaan ilmoitusnumeroon saakka. Ja sitten taas tämä kopioitaisiin seuraavaan sakka jne.
Ilmoitusnumeroiden välissä olevat tyhjät rivit vaihtelevat.
Data näyttää esimerkiksi tältä:

10002287 kone pysähtyi
(tyhjä) 10-83768K7
(tyhjä) kone pysähtyi ja kaikki meni pieleen
10002298 2. kone pysähtyi
(tyhjä) 190-4839J7
(tyhjä)
17892947 kone pysähtyi

Jotta näyttäisi tältä:

10002287 kone pysähtyi
10002287 10-83768K7
10002287 kone pysähtyi ja kaikki meni pieleen
10002298 2. kone pysähtyi
10002298 190-4839J7
10002298
17892947 kone pysähtyi

Esimerkki vähän hankalan näköinen, mutta eiköhän siitä perjaate selviä. Käsin tällaista ei viitsi alkaa tekemään, koska siinä menisi ikä ja terveys.

3

465

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ....

      Sub taytto()
      Application.Calculation = xlCalculationManual
      For Each solu In Range("A:A")
      If solu.Value > 0 Then tayte = solu.Value Else solu.Value = tayte
      Next
      Application.Calculation = xlCalculationAutomatic
      End Sub

      • Neo_306

        Kiitoiksia! Helpotti elämää kummasti.

      • kunde

        oikein vaan tayttaa koko sarakkeen ja ...

        moduuliin...

        Sub TaytaTyhjat()
        Dim vika As Long
        On Error Resume Next
        vika = Range("A65536").End(xlUp).Row
        Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi

      Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit
      Maailman menoa
      34
      5227

    2. Nyt tuli Suomen somaleista todella ikävää faktaa

      sillä osa somalivanhemmista lähettää lapsiaan kotimaahansa kurinpitolaitoksiin, joissa heitä pahoinpidellään. Illan MOT
      Maailman menoa
      398
      4516

    3. Häirintäkohun keskellä olevalta kansanedustajalta Jani Kokolta (sd) rajua tekstiä somessa.

      https://www.is.fi/politiikka/art-2000011772322.html Ajaakohan tämä SDP:n kansanedustaja Jani Kokko oikein täysillä valoi
      Maailman menoa
      148
      3819

    4. KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!

      STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
      Maailman menoa
      137
      2977

    5. Kommentti: oikeuslaitos korvattava SDP:n johdolla

      Näkisin että Suomessa tuomiovalta pitäisi olla demareiden johtoportaalla. Koska porvarimedia säestettynä persujen kirku
      Maailman menoa
      11
      2500

    6. Mikä siinä on ettei persuille leikkaukset käy?

      On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei
      Maailman menoa
      21
      2292

    7. Huono päivä

      Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja
      Ikävä
      18
      2028

    8. Lindtman haluaa leikata Kela-korvauksista...oho!

      Antti Lindtman sanoo Kauppalehdessä, että vuodesta 2028 voi tulla erittäin hankala, mikäli nykyinen hallitus ei tee riit
      Maailman menoa
      151
      1982

    9. Onko kaivattusi spesiaali?

      Millä tavalla ja miten?
      Ikävä
      123
      1900

    10. Typeryyttä

      Se on kummallista, kun kaksi ihmistä tuntee selittämätöntä vetoa toisiinsa, mutta eivät vain pääse toistensa luokse. Mik
      Ikävä
      124
      1459
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt