„Excel“ - pakartokite eilučių skaičių tam tikrą skaičių kartų

„Excel“ darbalapio eilutės gali būti kartojamos tam tikrą skaičių kartų naudodami vartotojo apibrėžtą funkciją. Naudotojo apibrėžtą funkciją galima parašyti, kad pakartotumėte eilutes tam tikru kartų skaičiumi . Tam tikros žinios apie programavimo koncepcijas, pvz., Jei-tada-kitokias sąlygas ir tai, kad kilpos gali būti reikalingos tokiai funkcijai rašyti. „Excel“ programinės įrangos darbalapio eilutėms įterpti galima naudoti komandą „ Selection.insert“ . Kodą nereikia rašyti nuo nulio, nes kodo fragmentai yra laisvai prieinami darbalapiuose. Tačiau reikia užtikrinti, kad vartotojo apibrėžta funkcija arba paprogramė, kuri pakartotų eilučių skaičių, įterpiama į tinkamą vietą.

Problema
Sprendimas
Pastaba

Problema

Ar kas nors žino, kaip kartoti eilutes skaičiuoklėje tam tikru kartų, nurodytų toje eilutėje esančiame ląstelėje?

ty iš šios lentelės:

A stulpelis B skiltis

Petras 3

James 7

David 4

Turiu pateikti šią lentelę:

A stulpelis B skiltis

Petras 3

James 7

David 4

Bet kokios paprastos idėjos, kaip tai padaryti?

Sprendimas

Išbandyti šį:

 Sub CopyData ()
Matykite ilgą laiką
Dim RepeatFactor As variantas
lRow = 1
Atlikite (langeliai (lRow, "A") "")
RepeatFactor = ląstelės (lRow, "B")
Jei ((RepeatFactor> 1) ir IsNumeric (RepeatFactor)), tada
Diapazonas (ląstelės (lRow, "A"), ląstelės (lRow, "B"))
Diapazonas (ląstelės (lRow + 1, "A"), ląstelės (lRow + RepeatFactor - 1, "B")).
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
Baigti Jei
lRow = lRow + 1
Loop
Pabaiga