Excel - Kopírovanie riadkov z hárku 1 do hárku 2

Problém

Musím mať makro, ktoré bude kopírovať riadky z listu 1 do hárku 2. Úchyt je z listu 1 stĺpca A, napr. A3 môže mať číslo 10 v ňom. Musím skopírovať tento riadok a vložiť ho 10 krát na hárok 2 a potom skopírovať ďalší riadok z hárku 1 A4 a ak má 2 v tomto stĺpci, vložte ho dvakrát na hárok 2 a tak ďalej.

Riešenie

Predpokladám, že máte údaje (čísla) iba od formátu A3

pozrite si nižšie uvedené vzorové údaje (toto je v hárku 1)

A3 je 10

A4 je 2

skúste toto makro a pozrite si list 2

 Sub test () Dim r Ako rozsah, c As Range, dest As Range Dim j As Long, r1 As Range Pracovné hárky ("sheet1") Aktivácia Set r = Range (Range ("A3"), Range ("A3") .End (xlDown)) Pre každý c V rj = c.Value c.EntireRow.Copy S pracovnými hárkami ("sheet2") Nastaviť dest = .Cells (Rows.Count, "A") End (xlUp) .Offset (1), 0) Nastaviť r1 = rozsah (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial Koniec s nasledujúcou c application.cutcopymode = false Koniec Sub 

Poznámka

Vďaka venkat1926 za tento tip na fóre.