Excel - En makro til at kopiere rækker X antal gange

Makroer kan bruges i Excel Office-software til at kopiere rækker for x antal gange . Gentagne opgaver som at kopiere data fra rækker manuelt bliver ikke gennemførlige, hvis antallet af poster i et Excel-regneark er for højt. Selv for mindre regneark er det tilrådeligt at bruge makroer til opgaver som at kopiere rækker til X antal gange i et regneark. Makroer udfører opgaven automatisk med minimal menneskelig indgriben reducerer chancerne for fejl. Forskrevne makroer kan downloades fra forskellige online ressourcer og ændres for at udføre de ønskede opgaver. Nogle kendskab til programmering kan være påkrævet.

Problem

Jeg vil gerne tage den første række i mit regneark, kopiere det "X" antal gange, derefter tage næste række og kopiere det samme "X" antal gange, indtil slutningen af rækkerne.

Prøve

 ColA ColB ColC TextA TextA1 TextA2 TextB TextB1 TextB2 TextC TextC1 TextC2 Resultater (for eksempel 3 gange) 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

Opløsning

Dette er makroen:

 Sub-test () Dim rng Som Range, c Som Range Dim Rng1 Som Range, c1 Som Range Dim Dest As Range, j Som Integer, k Som Integer Worksheets ("Sheet2"). Cells.Clear With Worksheets rng = Range (.Range ("A2"), .Range ("A2"). Slut (xlDown)) j = ArbejdsarkFunktion.CountA (.Rows ("1: 1")) 'msgbox j For hver c rng1 = Range (c.Offset (0, 1) .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address For hver c1 I rng1 Indstil dest = Worksheets ("sheet2"). Celler (Rows.Count, "a"). Slut (xlUp) .Offset (1, 0) 'msgbox dest.Address Hvis c1 = "" Så Gå til linje1 dest.Offset (0, 0) = c dest.Offset, 1) = .Cells (1, c1.Column) 'dest.Offset (0, 2) = c1 linje1: Næste c1 Næste c Slut med slutdel

En anden metode -Pivot tabel af database.-

ref: wlakenbach blog

//spreadsheetpage.com / ...