Excel - Gjenta rader et spesifisert antall ganger

Rader i et Excel-regneark kan gjentas et spesifisert antall ganger ved hjelp av en brukerdefinert funksjon. En brukerdefinert funksjon kan skrives for å gjenta rader et spesifisert antall ganger . Enkelte kunnskaper om programmeringskonsepter som om-da-ellers betingelser og gjør mens looper kan være nødvendige for å skrive en slik funksjon. Kommandoen Selection.insert kan brukes til å sette inn rader i regnearket i Excel Office-programvaren. Det er ikke nødvendig å skrive koden fra bunnen av siden, da kodestykker er fritt tilgjengelige for bruk i regneark. Imidlertid må man sikre at den brukerdefinerte funksjonen eller subrutinen for å gjenta rader et spesifisert antall ganger er satt inn på riktig sted.

Utgave
Løsning
Merk

Utgave

Vet noen hvordan å gjenta rader i et regneark med et bestemt antall ganger angitt i cellen som er tilstede i den raden?

dvs. fra denne tabellen:

Kolonne A Kolonne B

Peter 3

James 7

David 4

Jeg må lage denne tabellen:

Kolonne A Kolonne B

Peter 3

James 7

David 4

Noen ideer på en enkel måte å gjøre dette på?

Løsning

Prøv dette:

 Sub CopyData ()
Dim lRå så lenge
Dim RepeatFactor Som variant
lRow = 1
Gjør mens (celler (lRow, "A") "")
RepeatFactor = Cells (lRow, "B")
Hvis ((RepeatFactor> 1) Og IsNumeric (RepeatFactor)) Så
Range (celler (lRow, "A"), celler (lRow, "B")). Kopier
Område (celler (lRow + 1, "A"), celler (lRow + RepeatFactor - 1, "B")). Velg
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
Slutt om
lRow = lRow + 1
Loop
Slutt Sub