Excel - Toista rivit määrätyn määrän kertoja

Excel-laskentataulukon rivejä voidaan toistaa tietty määrä kertoja käyttäjän määrittämän toiminnon avulla. Käyttäjän määrittämä funktio voidaan kirjoittaa toistamaan rivit määrätyn määrän kertoja . Jotkin tietämys ohjelmointikonsepteista, kuten jos-silloin-muut olosuhteet ja tehdä silmukoita ehkä tarvita tällaisen toiminnon kirjoittamiseksi. Selection.insert -komennolla voidaan lisätä rivejä Excel Office -ohjelmiston laskentataulukkoon. Koodia ei tarvitse kirjoittaa tyhjästä, koska koodinpätkät ovat vapaasti käytettävissä työarkeissa. On kuitenkin varmistettava, että käyttäjän määrittämä toiminto tai alirutiini toistaa rivit tietyn määrän kertoja lisätään oikeaan paikkaan.

  • Ongelma
  • Ratkaisu
  • Huomautus

Ongelma

Tietääkö kukaan, kuinka taulukon rivejä toistetaan tietty määrä kertoja, jotka on määritetty kyseisessä rivissä olevassa solussa?

eli tästä taulukosta:

 Sarake A Sarake B

Peter 3

James 7

David 4

Minun on tuotettava tämä taulukko:

 Sarake A Sarake B

Peter 3

Peter 3

Peter 3

James 7

James 7

James 7

James 7

James 7

James 7

James 7

David 4

David 4

David 4

David 4

Mitään ideoita yksinkertaisella tavalla?

Ratkaisu

Kokeile tätä:

 Sub CopyData ()

Dim lRow niin pitkään

Dim RepeatFactor As Variant

lRow = 1

Tee vaikka (solut (lRow, "A") "")

RepeatFactor = Solut (lRow, "B")

Jos ((RepeatFactor> 1) ja IsNumeric (RepeatFactor)) sitten

Alue (solut (lRow, "A"), solut (lRow, "B"))

Alue (solut (lRow + 1, "A"), solut (lRow + RepeatFactor - 1, "B")) Valitse

Selection.Insert Shift: = xlDown

lRow = lRow + RepeatFactor - 1

Loppu Jos

lRow = lRow + 1

silmukka

Lopeta Sub

Huomautus

Kiitos rizvisa1: stä tästä vinkistä foorumissa.
Edellinen Artikkeli Seuraava Artikkeli

Top Vinkkejä