Excel - Kopier rækker fra ark 1 til ark 2

Problem

Jeg skal have en makro, der vil kopiere rækker fra ark1 til ark 2. Fangsten er fra ark 1 col A for f.eks. A3 kan have nummer 10 i den. Jeg skal kopiere den pågældende række og indsætte den 10 gange på ark 2 og derefter kopiere den næste række fra ark 1 A4, og hvis den har 2 i den kolonne, indsæt den 2 gange på ark 2 og så videre.

Opløsning

Jeg antager, at du kun har data (tal) fra A3

se eksempeldataene nedenfor (dette er i ark1)

A3 er 10

A4 er 2

Prøv nu denne makro og se ark 2

 Sub-test () Dimensioner som rækkevidde, c Som rækkevidde, dest som interval Dim j så lang, r1 Som rækkeark (ark1). Aktiver Indstil r = Område (Område ("A3"), Område ("A3") .End (xlDown)) For hver c I rj = c.Value c.EntireRow.Copy With Worksheets ("ark2") Indstil dest = .Cells (Rows.Count, "A"). Slut (xlUp) .Offset, 0) Indstil r1 = Range (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial End med næste c application.cutcopymode = false End Sub 

Bemærk

Tak til venkat1926 for dette tip på forummet.