Excel - Kopirajte vrstice iz lista 1 v list 2

Težava

Moram imeti makro, ki bo kopiral vrstice iz lista1 v list 2. Ulov je iz lista 1, kolona A, npr. Ima lahko A3 v njem številko 10. To vrstico moram kopirati in jo prilepiti 10-krat na list 2 in nato kopirati naslednjo vrstico iz lista A4 A4 in če ima 2 v tem stolpcu, jo prilepite 2-krat na list 2 in tako naprej.

Rešitev

Predvidevam, da imate podatke (številke) samo od A3 navzdol

glej spodnje vzorčne podatke (to je v listu1)

A3 je 10

A4 je 2

zdaj poskusite ta makro in si oglejte list 2

 Sub test () Dim r Kot območje, c As Range, dest As Range Dim j Kot dolg, r1 Kot delovni list razpona ("sheet1") Aktiviraj Set r = Range (Območje ("A3"), Range ("A3") .End (xlDown)) Za vsak c V rj = c.Vrednost c.EntireRow.Copy z delovnimi listi ("sheet2") Set dest = .Cells (Rows.Count, "A"). End (xlUp) .Offset (1, 0) Set r1 = Območje (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial End With Next c application.cutcopymode = false End Sub 

Opomba

Hvala za venkat1926 za ta nasvet na forumu.