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

469

Ää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. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      139
      3870

    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      344
      2997

    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      10
      1906

    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      9
      1635

    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      4
      1099

    6. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      71
      944

    7. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      38
      874

    8. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      784

    9. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      23
      771

    10. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      65
      761
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt