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

463

Ää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. Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue

      Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää
      Maailman menoa
      205
      5084

    2. Olen väsynyt tähän

      En osaa lopettaa ja koen huonoa omaatuntoa tästä. Kaikki on muutenkin turhaa ja tekemisesi sattuvat. Tunteita on vain hy
      Ikävä
      37
      4503

    3. Oppiiko vasemmistolaiset valehtelun jo kotonaan?

      Sillä vasemmistolaiset/äärivasemmistolaiset valehtelee ja keksii asioita omasta päästään todella paljon. Esim. joku vas
      Maailman menoa
      200
      2721

    4. Seuraava hallituspohja - Kokoomus, kepu, persut + KD

      Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 17
      Maailman menoa
      135
      2318

    5. Olenko mies sinun mielestä outo?

      Saat vastata rehellisesti.
      Ikävä
      60
      1931

    6. Maailman laiskin eläin: persu

      Persu ei ole eläessään laittanut rikkaa ristiin itsensä elättämiseen. Luonnossa tuollainen ei olisi mahdollista, mutta s
      Maailman menoa
      112
      1821

    7. Millasia unelmia sulla on?

      onko unelmia...?
      Ikävä
      67
      1794

    8. Miten usein toivot

      Tai olet toivonut että olisimme lähekkäin vai toivotko ollenkaan?
      Ikävä
      208
      1664

    9. Miksi et voi tutustua minuun irl?

      Vastaa yleisellä tasolla/ympäripyöreästi, jos pelkäät tunnistamisia.
      Ikävä
      152
      1232

    10. Martina tienaa itse rahansa

      Ei tarvitse anella elättäjältään rahaa, ruokaa ja laukkuja.
      Kotimaiset julkkisjuorut
      241
      964
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt