Excel - korrake ridu teatud arv kordi

Exceli töölehe ridasid saab kasutaja määratud funktsiooni abil korrata teatud arvu kordi. Kasutaja määratud funktsiooni saab kirjutada, et korrata ridu teatud arv kordi . Sellise funktsiooni kirjutamiseks võib olla vaja mõningaid teadmisi programmeerimiskontseptsioonide kohta, nagu näiteks siis, kui muud tingimused ja seda, kui silmad on vaja. Käsku Selection.insert saab kasutada Exceli Office'i töölehe ridade lisamiseks. Koodi pole vaja nullist kirjutada, kuna koodilõigud on töölehtedes vabalt kasutatavad. Siiski tuleb tagada, et kasutaja määratud funktsioon või alamprogramm, et korrata ridu teatud arv kordi, sisestatakse õigesse kohta.

Probleem
Lahendus
Märge

Probleem

Kas keegi teab, kuidas arvutustabeli ridu korrata teatud arv kordi, mis on määratud selles reas olevas lahtris?

st sellest tabelist:

Veerg A veerg B

Peter 3

James 7

David 4

Ma pean selle tabeli esitama:

Veerg A veerg B

Peter 3

James 7

David 4

Kõik ideed selle lihtsal viisil?

Lahendus

Proovi seda:

 Sub CopyData ()
Dim lRow nii kaua
Dim RepeatFactor As variant
lRow = 1
Tehke ajal (lahtrid (lRow, "A") "")
RepeatFactor = lahtrid (lRow, "B")
Kui ((RepeatFactor> 1) ja IsNumeric (RepeatFactor)) siis
Vahemik (lahtrid (lRow, "A"), lahtrid (lRow, "B"))
Vahemik (lahtrid (lRow + 1, "A"), lahtrid (lRow + RepeatFactor - 1, "B")) Valige
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
Lõpeta kui
lRow = lRow + 1
Loop
Lõpeta alam