Excel - Ett makro för att kopiera rader X antal gånger

Makroer kan användas i Excel-kontorsprogramvara för att kopiera rader för x antal gånger . Upprepade uppgifter som att kopiera data från rader manuellt blir inte genomförbara om antalet poster i ett Excel-kalkylblad är för högt. Även för mindre kalkylblad är det lämpligt att använda makron för uppgifter som att kopiera rader för X antal gånger i ett kalkylblad. Makroer utför uppgiften automatiskt med minimal mänsklig intervention, vilket minskar risken för fel. Förskrivna makron kan hämtas från olika online-resurser och ändras för att utföra de önskade uppgifterna. Viss kunskap om programmering kan krävas.

Problem

Jag skulle vilja ta den första raden i mitt kalkylblad, kopiera det "X" antal gånger, ta nästa rad, kopiera det samma "X" antal gånger, till slutet av raderna.

Prov

 ColA ColB ColC TextA TextA1 TextA2 TextB TextB1 TextB2 TextC TextC1 TextC2 Resultat (till exempel 3 gånger) ColA ColB ColC TextA TextA1 TextA2 TextA TextA1 TextA2 TextA TextA1 TextA2 TextB TextB1 TextB2 TextB TextB1 TextB2 TextB TextB1 TextB2 TextC TextC1 TextC2 TextC TextC1 TextC2 TextC TextC1 TextC2 TextC TextC1 TextC2

Lösning

Detta är makroen:

 Sub-test () Dimma rng Som intervall, c Som omfång Dim rng1 Som intervall, c1 Som Område Dim dest Som omfång, j Som heltal, k Som heltal Arbetsblad ("ark2"). Cells.Clear med kalkylblad rng = Range (.Range ("A2"), .Range ("A2"). Slut (xlDown)) j = ArbetsbladFunktion.CountA (.Rows ("1: 1")) 'msgbox j För varje c rng1 = Område (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address För varje c1 I rng1 Ange dest = Worksheets ("sheet2"). Celler (Rows.Count, "a"). Slut (xlUp) .Offset (1, 0) 'msgbox dest.Address Om c1 = "" Då GoTo line1 dest.Offset (0, 0) = c dest.Offset, 1) = .Källor (1, c1.Kolumn) 'dest.Offset (0, 2) = c1 linje1: Nästa c1 Nästa c Slut med slutdel

En annan metod -pivotabell av databasen.-

ref: wlakenbach blogg

//spreadsheetpage.com / ...