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

420

Ää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. 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
      33
      11805

    2. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      35
      7511

    3. 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ä
      82
      3949

    4. Nolointa ikinä miehelle

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

    5. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      44
      3462

    6. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      611
      3237

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

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

    8. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      91
      3098

    9. 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ä
      32
      2033

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

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      36
      1970
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt