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 BPeter 3
James 7
David 4
Minun on tuotettava tämä taulukko:
Sarake A Sarake BPeter 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